home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 July / Macworld (1999-07).dmg / Shareware World / Info / For Developers / Mops 3.4.sea / Quick Edit ƒ / Subject Glossary / Compiler < prev    next >
MacBinary  |  1996-01-14  |  12.1 KB  |  [TEXT/MSET]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Jan 14 05:51:37 1996, modified Sun Jan 14 05:51:37 1996, creator 'MSET', type ASCII, 11825 bytes "Compiler" , at 0x2eb1 381 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MSET]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 43 6f 6d 70 69 6c | 65 72 00 00 00 00 00 00 |..Compil|er......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 2e 31 00 | 00 01 7d ad 1e 90 b9 ad |......1.|..}.....|
|00000060| 1e 90 b9 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 62 30 00 00 |........|....b0..|
|00000080| 20 5c 20 31 34 4a 61 6e | 39 36 20 44 42 48 0d 28 | \ 14Jan|96 DBH.(|
|00000090| 09 2d 2d 0d 09 4c 65 66 | 74 20 70 61 72 65 6e 2e |.--..Lef|t paren.|
|000000a0| 20 20 44 65 6e 6f 74 65 | 73 20 74 68 65 20 62 65 |  Denote|s the be|
|000000b0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 61 20 63 6f 6d |ginning |of a com|
|000000c0| 6d 65 6e 74 2e 20 20 41 | 74 20 6c 65 61 73 74 20 |ment.  A|t least |
|000000d0| 6f 6e 65 20 0d 09 73 70 | 61 63 65 20 6d 75 73 74 |one ..sp|ace must|
|000000e0| 20 66 6f 6c 6c 6f 77 2e | 20 20 45 6e 64 20 63 6f | follow.|  End co|
|000000f0| 6d 6d 65 6e 74 20 77 69 | 74 68 20 61 20 72 69 67 |mment wi|th a rig|
|00000100| 68 74 20 70 61 72 65 6e | 20 29 2e 20 20 0d 29 09 |ht paren| ).  .).|
|00000110| 2d 2d 0d 09 52 69 67 68 | 74 20 70 61 72 65 6e 2e |--..Righ|t paren.|
|00000120| 20 20 44 65 6e 6f 74 65 | 73 20 74 68 65 20 65 6e |  Denote|s the en|
|00000130| 64 20 6f 66 20 61 20 63 | 6f 6d 6d 65 6e 74 20 74 |d of a c|omment t|
|00000140| 68 61 74 20 77 61 73 20 | 62 65 67 75 6e 20 62 79 |hat was |begun by|
|00000150| 20 28 20 2e 0d 0d 5c 09 | 2d 2d 09 42 61 63 6b 73 | ( ...\.|--.Backs|
|00000160| 6c 61 73 68 2e 20 20 57 | 69 6c 6c 20 63 61 75 73 |lash.  W|ill caus|
|00000170| 65 20 63 6f 6d 70 69 6c | 65 72 20 74 6f 20 69 67 |e compil|er to ig|
|00000180| 6e 6f 72 65 20 74 68 65 | 20 72 65 73 74 20 6f 66 |nore the| rest of|
|00000190| 20 74 68 61 74 20 6c 69 | 6e 65 2e 0d 0d 28 2a 09 | that li|ne...(*.|
|000001a0| 28 20 2d 2d 20 29 09 43 | 6f 6d 70 69 6c 65 72 09 |( -- ).C|ompiler.|
|000001b0| 42 61 73 65 0d 09 28 2a | 20 2e 2e 2e 20 2a 29 20 |Base..(*| ... *) |
|000001c0| 64 65 66 69 6e 65 73 20 | 61 20 6d 75 6c 74 69 2d |defines |a multi-|
|000001d0| 6c 69 6e 65 20 63 6f 6d | 6d 65 6e 74 2c 20 77 68 |line com|ment, wh|
|000001e0| 69 63 68 20 63 61 6e 20 | 62 65 20 76 65 72 79 20 |ich can |be very |
|000001f0| 75 73 65 66 75 6c 2e 20 | 20 4d 61 6e 79 0d 09 50 |useful. | Many..P|
|00000200| 61 73 63 61 6c 20 63 6f | 6d 70 69 6c 65 72 73 20 |ascal co|mpilers |
|00000210| 75 73 65 20 74 68 65 73 | 65 20 73 79 6d 62 6f 6c |use thes|e symbol|
|00000220| 73 20 2d 20 49 20 74 68 | 6f 75 67 68 74 20 69 74 |s - I th|ought it|
|00000230| 20 62 65 74 74 65 72 20 | 6e 6f 74 20 74 6f 20 75 | better |not to u|
|00000240| 73 65 0d 09 74 68 65 20 | 43 2d 73 74 79 6c 65 20 |se..the |C-style |
|00000250| 2f 2a 20 2e 2e 2e 20 2a | 2f 20 20 73 69 6e 63 65 |/* ... *|/  since|
|00000260| 20 2a 2f 20 61 6c 72 65 | 61 64 79 20 68 61 73 20 | */ alre|ady has |
|00000270| 61 20 6d 65 61 6e 69 6e | 67 2e 0d 09 41 20 75 73 |a meanin|g...A us|
|00000280| 65 66 75 6c 20 69 6d 70 | 72 6f 76 65 6d 65 6e 74 |eful imp|rovement|
|00000290| 20 74 6f 20 74 68 65 20 | 74 79 70 69 63 61 6c 20 | to the |typical |
|000002a0| 50 61 73 63 61 6c 20 69 | 6d 70 6c 65 6d 65 6e 74 |Pascal i|mplement|
|000002b0| 61 74 69 6f 6e 20 69 73 | 20 74 6f 20 6b 65 65 70 |ation is| to keep|
|000002c0| 20 61 0d 09 6c 65 76 65 | 6c 20 63 6f 75 6e 74 20 | a..leve|l count |
|000002d0| 73 6f 20 74 68 61 74 20 | 74 68 69 73 20 6b 69 6e |so that |this kin|
|000002e0| 64 20 6f 66 20 63 6f 6d | 6d 65 6e 74 20 63 61 6e |d of com|ment can|
|000002f0| 20 62 65 20 6e 65 73 74 | 65 64 2e 0d 0d 2a 29 09 | be nest|ed...*).|
|00000300| 28 20 2d 2d 20 29 09 43 | 6f 6d 70 69 6c 65 72 09 |( -- ).C|ompiler.|
|00000310| 42 61 73 65 0d 09 53 65 | 65 20 28 2a 20 2e 0d 0d |Base..Se|e (* ...|
|00000320| 45 4e 44 4c 4f 41 44 09 | 20 20 57 69 6c 6c 20 63 |ENDLOAD.|  Will c|
|00000330| 61 75 73 65 20 63 6f 6d | 70 69 6c 65 72 20 74 6f |ause com|piler to|
|00000340| 20 69 67 6e 6f 72 65 20 | 74 68 65 20 72 65 73 74 | ignore |the rest|
|00000350| 20 6f 66 20 74 68 65 20 | 66 69 6c 65 20 62 65 69 | of the |file bei|
|00000360| 6e 67 20 6c 6f 61 64 65 | 64 2e 0d 0d 56 45 43 54 |ng loade|d...VECT|
|00000370| 09 63 66 61 20 2d 2d 20 | 20 3a 20 20 6e 61 6d 65 |.cfa -- | :  name|
|00000380| 0d 09 44 65 66 69 6e 65 | 73 20 61 6e 20 65 78 65 |..Define|s an exe|
|00000390| 63 75 74 69 6f 6e 20 76 | 61 72 69 61 62 6c 65 20 |cution v|ariable |
|000003a0| 74 68 61 74 20 63 61 6e | 20 68 6f 6c 64 20 61 6e |that can| hold an|
|000003b0| 64 20 65 78 65 63 75 74 | 65 20 74 68 65 20 63 66 |d execut|e the cf|
|000003c0| 61 20 0d 09 6f 66 20 61 | 20 4d 6f 70 73 20 77 6f |a ..of a| Mops wo|
|000003d0| 72 64 2e 20 20 45 78 65 | 63 75 74 69 6e 67 20 74 |rd.  Exe|cuting t|
|000003e0| 68 65 20 76 65 63 74 20 | 6e 61 6d 65 20 77 69 6c |he vect |name wil|
|000003f0| 6c 20 65 78 65 63 75 74 | 65 20 74 68 65 20 63 66 |l execut|e the cf|
|00000400| 61 2e 0d 09 43 61 6e 20 | 75 73 65 20 2d 3e 20 61 |a...Can |use -> a|
|00000410| 74 20 72 75 6e 74 69 6d | 65 20 74 6f 20 63 68 61 |t runtim|e to cha|
|00000420| 6e 67 65 2e 20 20 0d 0d | 0d 53 54 41 54 45 09 2d |nge.  ..|.STATE.-|
|00000430| 2d 20 20 63 6f 6d 70 69 | 6c 65 2d 73 74 61 74 65 |-  compi|le-state|
|00000440| 0d 20 20 20 20 54 68 69 | 73 20 76 61 6c 75 65 20 |.    Thi|s value |
|00000450| 69 73 20 74 68 65 20 63 | 6f 6d 70 69 6c 61 74 69 |is the c|ompilati|
|00000460| 6f 6e 20 73 74 61 74 65 | 20 6f 66 20 74 68 65 20 |on state| of the |
|00000470| 4d 6f 70 73 20 69 6e 74 | 65 72 70 72 65 74 65 72 |Mops int|erpreter|
|00000480| 2e 20 20 41 20 6e 6f 6e | 2d 7a 65 72 6f 20 0d 09 |.  A non|-zero ..|
|00000490| 76 61 6c 75 65 20 6d 65 | 61 6e 73 20 74 68 61 74 |value me|ans that|
|000004a0| 20 74 68 65 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 | the def|inition |
|000004b0| 6f 66 20 61 20 77 6f 72 | 64 2c 20 6d 65 74 68 6f |of a wor|d, metho|
|000004c0| 64 2c 20 6f 72 20 63 6c | 61 73 73 20 69 73 20 62 |d, or cl|ass is b|
|000004d0| 65 69 6e 67 20 63 6f 6d | 70 69 6c 65 64 2e 20 20 |eing com|piled.  |
|000004e0| 0d 0d 43 53 54 41 54 45 | 09 2d 2d 20 62 0d 09 54 |..CSTATE|.-- b..T|
|000004f0| 68 69 73 20 76 61 6c 75 | 65 20 69 73 20 61 20 62 |his valu|e is a b|
|00000500| 6f 6f 6c 65 61 6e 20 77 | 68 69 63 68 20 69 73 20 |oolean w|hich is |
|00000510| 74 72 75 65 20 77 68 69 | 6c 65 20 61 20 63 6c 61 |true whi|le a cla|
|00000520| 73 73 20 69 73 20 62 65 | 69 6e 67 20 63 6f 6d 70 |ss is be|ing comp|
|00000530| 69 6c 65 64 2e 20 20 49 | 74 20 69 73 20 0d 09 61 |iled.  I|t is ..a|
|00000540| 6e 61 6c 6f 67 6f 75 73 | 20 74 6f 20 73 74 61 74 |nalogous| to stat|
|00000550| 65 20 77 68 69 63 68 20 | 69 73 20 74 72 75 65 20 |e which |is true |
|00000560| 77 68 69 6c 65 20 61 20 | 63 6f 6c 6f 6e 20 77 6f |while a |colon wo|
|00000570| 72 64 20 69 73 20 62 65 | 69 6e 67 20 63 6f 6d 70 |rd is be|ing comp|
|00000580| 69 6c 65 64 2e 20 20 0d | 0d 3f 43 4f 4d 50 09 2d |iled.  .|.?COMP.-|
|00000590| 2d 0d 09 50 72 69 6e 74 | 73 20 6d 65 73 73 61 67 |-..Print|s messag|
|000005a0| 65 3a 20 22 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 20 |e: "comp|ilation |
|000005b0| 6f 6e 6c 79 22 20 69 66 | 20 6e 6f 74 20 63 6f 6d |only" if| not com|
|000005c0| 70 69 6c 69 6e 67 2c 20 | 74 68 61 74 20 69 73 2c |piling, |that is,|
|000005d0| 20 69 66 20 73 74 61 74 | 65 20 69 73 20 6e 6f 74 | if stat|e is not|
|000005e0| 20 0d 09 7a 65 72 6f 20 | 0d 09 0d 5b 09 2d 2d 0d | ..zero |...[.--.|
|000005f0| 09 53 6f 20 6e 6f 77 20 | 5b 20 61 6e 64 20 5d 20 |.So now |[ and ] |
|00000600| 64 6f 20 64 6f 75 62 6c | 65 20 64 75 74 79 2e 20 |do doubl|e duty. |
|00000610| 20 49 66 20 74 68 65 79 | 20 66 6f 6c 6c 6f 77 20 | If they| follow |
|00000620| 61 20 6d 65 74 68 6f 64 | 20 73 65 6c 65 63 74 6f |a method| selecto|
|00000630| 72 2c 20 74 68 65 79 20 | 63 61 75 73 65 20 61 20 |r, they |cause a |
|00000640| 0d 09 6c 61 74 65 20 62 | 69 6e 64 20 61 73 20 69 |..late b|ind as i|
|00000650| 6e 20 4e 65 6f 6e 2e 20 | 20 49 6e 20 61 6e 79 20 |n Neon. | In any |
|00000660| 6f 74 68 65 72 20 63 6f | 6e 74 65 78 74 20 74 68 |other co|ntext th|
|00000670| 65 79 20 74 75 72 6e 20 | 63 6f 6d 70 69 6c 61 74 |ey turn |compilat|
|00000680| 69 6f 6e 20 6f 6e 20 61 | 6e 64 20 6f 66 66 2e 20 |ion on a|nd off. |
|00000690| 20 0d 0d 24 09 2d 2d 20 | 6e 0d 09 57 69 6c 6c 20 | ..$.-- |n..Will |
|000006a0| 63 6f 6d 70 69 6c 65 20 | 74 68 65 20 65 6e 73 75 |compile |the ensu|
|000006b0| 69 6e 67 20 63 68 61 72 | 61 63 74 65 72 73 20 69 |ing char|acters i|
|000006c0| 6e 20 74 68 65 20 69 6e | 70 75 74 20 73 74 72 65 |n the in|put stre|
|000006d0| 61 6d 20 61 73 20 61 20 | 68 65 78 20 0d 09 6e 75 |am as a |hex ..nu|
|000006e0| 6d 62 65 72 2e 20 20 0d | 4c 49 54 09 6e 20 2d 2d |mber.  .|LIT.n --|
|000006f0| 0d 09 41 20 73 74 61 74 | 65 2d 73 6d 61 72 74 20 |..A stat|e-smart |
|00000700| 76 65 72 73 69 6f 6e 20 | 6f 66 20 4c 49 54 45 52 |version |of LITER|
|00000710| 41 4c 2e 20 20 43 6f 72 | 72 65 73 70 6f 6e 64 73 |AL.  Cor|responds|
|00000720| 20 74 6f 20 4c 49 54 45 | 52 41 4c 20 69 6e 20 46 | to LITE|RAL in F|
|00000730| 69 67 2d 46 6f 72 74 68 | 20 6f 72 20 0d 09 6f 72 |ig-Forth| or ..or|
|00000740| 69 67 69 6e 61 6c 20 4e | 65 6f 6e 2c 20 77 68 65 |iginal N|eon, whe|
|00000750| 72 65 61 73 20 6f 75 72 | 20 70 72 65 73 65 6e 74 |reas our| present|
|00000760| 20 4c 49 54 45 52 41 4c | 20 69 73 20 46 6f 72 74 | LITERAL| is Fort|
|00000770| 68 2d 38 33 2e 20 20 0d | 4c 49 54 57 09 6e 20 2d |h-83.  .|LITW.n -|
|00000780| 2d 09 0d 0d 0d 0d 49 6e | 20 4e 65 6f 6e 2c 20 27 |-.....In| Neon, '|
|00000790| 20 28 74 69 63 6b 29 20 | 77 61 73 20 73 74 61 74 | (tick) |was stat|
|000007a0| 65 2d 73 6d 61 72 74 2c | 20 66 6f 6c 6c 6f 77 69 |e-smart,| followi|
|000007b0| 6e 67 20 46 69 67 2d 46 | 6f 72 74 68 2e 20 20 57 |ng Fig-F|orth.  W|
|000007c0| 65 20 68 61 76 65 20 0d | 6e 6f 77 20 66 6f 6c 6c |e have .|now foll|
|000007d0| 6f 77 65 64 20 74 68 65 | 20 46 6f 72 74 68 2d 38 |owed the| Forth-8|
|000007e0| 33 20 61 6e 64 20 41 4e | 53 49 20 73 74 61 6e 64 |3 and AN|SI stand|
|000007f0| 61 72 64 73 20 69 6e 20 | 72 65 70 6c 61 63 69 6e |ards in |replacin|
|00000800| 67 20 74 68 65 20 0d 73 | 74 61 74 65 2d 73 6d 61 |g the .s|tate-sma|
|00000810| 72 74 20 74 69 63 6b 20 | 77 69 74 68 20 74 68 65 |rt tick |with the|
|00000820| 20 74 77 6f 20 73 74 61 | 74 65 2d 64 75 6d 62 20 | two sta|te-dumb |
|00000830| 66 6f 72 6d 73 20 27 20 | 28 77 68 69 63 68 20 74 |forms ' |(which t|
|00000840| 69 63 6b 73 20 74 68 65 | 20 0d 6e 65 78 74 20 77 |icks the| .next w|
|00000850| 6f 72 64 20 69 6e 20 74 | 68 65 20 69 6e 70 75 74 |ord in t|he input|
|00000860| 20 73 74 72 65 61 6d 20 | 61 74 20 72 75 6e 20 74 | stream |at run t|
|00000870| 69 6d 65 2c 20 6e 6f 20 | 6d 61 74 74 65 72 20 77 |ime, no |matter w|
|00000880| 68 61 74 29 20 61 6e 64 | 20 0d 5b 27 5d 20 77 68 |hat) and| .['] wh|
|00000890| 69 63 68 20 69 73 20 69 | 6d 6d 65 64 69 61 74 65 |ich is i|mmediate|
|000008a0| 2c 20 6d 75 73 74 20 62 | 65 20 75 73 65 64 20 69 |, must b|e used i|
|000008b0| 6e 20 61 20 64 65 66 69 | 6e 69 74 69 6f 6e 2c 20 |n a defi|nition, |
|000008c0| 61 6e 64 20 0d 63 6f 6d | 70 69 6c 65 73 20 61 20 |and .com|piles a |
|000008d0| 6c 69 74 65 72 61 6c 20 | 66 65 74 63 68 20 6f 66 |literal |fetch of|
|000008e0| 20 74 68 65 20 63 66 61 | 20 6f 66 20 74 68 65 20 | the cfa| of the |
|000008f0| 66 6f 6c 6c 6f 77 69 6e | 67 20 77 6f 72 64 2e 20 |followin|g word. |
|00000900| 20 0d 0d 27 09 2d 2d 20 | 63 66 61 20 20 3a 20 77 | ..'.-- |cfa  : w|
|00000910| 6f 72 64 09 09 63 6f 6d | 70 69 6c 61 74 69 6f 6e |ord..com|pilation|
|00000920| 20 6f 6e 6c 79 0d 5b 27 | 5d 09 2d 2d 20 63 66 61 | only.['|].-- cfa|
|00000930| 20 20 3a 20 77 6f 72 64 | 09 09 72 75 6e 74 69 6d |  : word|..runtim|
|00000940| 65 20 6f 6e 6c 79 0d 0d | 0d 0d 2e 49 44 09 3f 63 |e only..|...ID.?c|
|00000950| 66 61 20 2d 2d 0d 09 49 | 66 20 61 64 64 72 20 6c |fa --..I|f addr l|
|00000960| 6f 6f 6b 73 20 6c 69 6b | 65 20 61 20 63 66 61 20 |ooks lik|e a cfa |
|00000970| 77 69 74 68 20 61 20 6e | 61 6d 65 2c 20 70 72 69 |with a n|ame, pri|
|00000980| 6e 74 73 20 74 68 65 20 | 6e 61 6d 65 2e 20 20 49 |nts the |name.  I|
|00000990| 66 20 69 74 20 0d 09 6c | 6f 6f 6b 73 20 6c 69 6b |f it ..l|ooks lik|
|000009a0| 65 20 61 20 63 66 61 20 | 77 69 74 68 6f 75 74 20 |e a cfa |without |
|000009b0| 61 20 6e 61 6d 65 2c 20 | 70 72 69 6e 74 73 20 22 |a name, |prints "|
|000009c0| 28 6e 6f 20 6e 61 6d 65 | 29 22 2e 20 20 4f 74 68 |(no name|)".  Oth|
|000009d0| 65 72 77 69 73 65 20 0d | 09 64 6f 65 73 6e 27 74 |erwise .|.doesn't|
|000009e0| 20 70 72 69 6e 74 20 61 | 6e 79 74 68 69 6e 67 2e | print a|nything.|
|000009f0| 20 20 0d 0d 58 54 53 7b | 09 2d 2d 20 20 3a 20 20 |  ..XTS{|.--  :  |
|00000a00| 6e 61 6d 65 31 20 6e 61 | 6d 65 32 20 65 74 63 2e |name1 na|me2 etc.|
|00000a10| 0d 09 53 74 61 74 65 2d | 73 6d 61 72 74 20 77 6f |..State-|smart wo|
|00000a20| 72 64 20 74 6f 20 63 6f | 6d 70 69 6c 65 20 6f 72 |rd to co|mpile or|
|00000a30| 20 73 74 61 63 6b 20 61 | 20 6c 69 73 74 20 6f 66 | stack a| list of|
|00000a40| 20 78 74 73 2e 20 20 50 | 75 6c 6c 73 20 77 6f 72 | xts.  P|ulls wor|
|00000a50| 64 73 20 66 72 6f 6d 20 | 73 74 72 65 61 6d 2c 20 |ds from |stream, |
|00000a60| 0d 09 75 6e 74 69 6c 20 | 22 7d 22 2e 20 0d 09 0d |..until |"}". ...|
|00000a70| 3f 23 58 54 53 09 6e 31 | 20 6e 32 20 2d 2d 0d 09 |?#XTS.n1| n2 --..|
|00000a80| 55 73 65 64 20 74 6f 20 | 63 68 65 63 6b 20 74 68 |Used to |check th|
|00000a90| 61 74 20 74 68 65 20 72 | 69 67 68 74 20 6e 75 6d |at the r|ight num|
|00000aa0| 62 65 72 20 6f 66 20 73 | 74 61 63 6b 65 64 20 63 |ber of s|tacked c|
|00000ab0| 66 61 73 20 69 73 20 62 | 65 69 6e 67 20 70 61 73 |fas is b|eing pas|
|00000ac0| 73 65 64 20 69 6e 2e 0d | 0d 3a 09 2d 2d 20 20 3a |sed in..|.:.--  :|
|00000ad0| 20 20 6e 61 6d 65 0d 09 | 43 72 65 61 74 65 73 20 |  name..|Creates |
|00000ae0| 61 20 64 69 63 74 69 6f | 6e 61 72 79 20 65 6e 74 |a dictio|nary ent|
|00000af0| 72 79 20 66 6f 72 20 74 | 68 65 20 6e 65 78 74 20 |ry for t|he next |
|00000b00| 77 6f 72 64 20 69 6e 20 | 74 68 65 20 69 6e 70 75 |word in |the inpu|
|00000b10| 74 20 73 74 72 65 61 6d | 2e 20 20 0d 09 73 74 61 |t stream|.  ..sta|
|00000b20| 6e 64 61 72 64 20 0d 3b | 09 2d 2d 09 73 74 61 6e |ndard .;|.--.stan|
|00000b30| 64 61 72 64 0d 0d 46 6f | 72 20 64 65 66 69 6e 69 |dard..Fo|r defini|
|00000b40| 6e 67 20 61 63 74 69 6f | 6e 20 68 61 6e 64 6c 65 |ng actio|n handle|
|00000b50| 72 73 20 74 68 61 74 20 | 63 72 6f 73 73 20 6d 6f |rs that |cross mo|
|00000b60| 64 75 6c 65 20 62 6f 75 | 6e 64 73 2e 20 20 49 66 |dule bou|nds.  If|
|00000b70| 20 61 20 63 6c 61 73 73 | 20 69 73 20 64 65 66 69 | a class| is defi|
|00000b80| 6e 65 64 20 0d 69 6e 20 | 6d 6f 64 75 6c 65 31 2c |ned .in |module1,|
|00000b90| 20 62 75 74 20 69 6e 73 | 74 61 6e 74 69 61 74 65 | but ins|tantiate|
|00000ba0| 64 20 69 6e 20 6d 6f 64 | 75 6c 65 32 20 77 69 74 |d in mod|ule2 wit|
|00000bb0| 68 20 61 63 74 69 6f 6e | 20 68 61 6e 64 6c 65 72 |h action| handler|
|00000bc0| 73 20 69 6e 20 6d 6f 64 | 75 6c 65 32 2c 20 64 65 |s in mod|ule2, de|
|00000bd0| 66 69 6e 65 20 0d 68 61 | 6e 64 6c 65 72 73 20 77 |fine .ha|ndlers w|
|00000be0| 69 74 68 20 3a 61 20 2e | 2e 2e 20 20 3b 61 2e 20 |ith :a .|..  ;a. |
|00000bf0| 20 0d 3a 41 09 2d 2d 0d | 3b 41 09 2d 2d 0d 0d 2c | .:A.--.|;A.--..,|
|00000c00| 45 58 45 43 09 63 66 61 | 20 6e 20 2d 2d 0d 09 53 |EXEC.cfa| n --..S|
|00000c10| 74 61 74 65 2d 73 6d 61 | 72 74 20 65 78 65 63 75 |tate-sma|rt execu|
|00000c20| 74 65 2e 20 20 49 66 20 | 75 73 65 64 20 77 69 74 |te.  If |used wit|
|00000c30| 68 69 6e 20 61 20 70 72 | 6f 67 72 61 6d 20 64 65 |hin a pr|ogram de|
|00000c40| 66 69 6e 69 74 69 6f 6e | 2c 20 63 6f 6d 70 69 6c |finition|, compil|
|00000c50| 65 73 20 74 68 65 20 63 | 66 61 20 61 73 20 0d 09 |es the c|fa as ..|
|00000c60| 61 20 6c 69 74 65 72 61 | 6c 20 74 6f 20 62 65 20 |a litera|l to be |
|00000c70| 65 78 65 63 75 74 65 64 | 20 61 74 20 72 75 6e 74 |executed| at runt|
|00000c80| 69 6d 65 3b 20 6f 74 68 | 65 72 77 69 73 65 20 65 |ime; oth|erwise e|
|00000c90| 78 65 63 75 74 65 73 20 | 69 74 20 69 6d 6d 65 64 |xecutes |it immed|
|00000ca0| 69 61 74 65 6c 79 2e 20 | 20 54 68 69 73 20 0d 09 |iately. | This ..|
|00000cb0| 69 73 20 6e 6f 74 20 61 | 6e 20 69 6d 6d 65 64 69 |is not a|n immedi|
|00000cc0| 61 74 65 20 77 6f 72 64 | 2e 20 20 49 74 20 69 73 |ate word|.  It is|
|00000cd0| 20 75 73 65 66 75 6c 20 | 69 6e 20 62 75 69 6c 64 | useful |in build|
|00000ce0| 69 6e 67 20 63 6f 6d 70 | 69 6c 65 72 20 77 6f 72 |ing comp|iler wor|
|00000cf0| 64 73 20 77 68 69 63 68 | 20 0d 09 63 6f 6e 64 69 |ds which| ..condi|
|00000d00| 74 69 6f 6e 61 6c 6c 79 | 20 63 6f 6d 70 69 6c 65 |tionally| compile|
|00000d10| 20 6f 74 68 65 72 20 77 | 6f 72 64 73 2e 20 0d 09 | other w|ords. ..|
|00000d20| 0d 30 2c 09 2d 2d 09 43 | 6f 6d 70 69 6c 65 73 20 |.0,.--.C|ompiles |
|00000d30| 61 6e 20 65 6d 70 74 79 | 20 63 65 6c 6c 2e 0d 2c |an empty| cell..,|
|00000d40| 09 6e 20 2d 2d 09 43 6f | 6d 70 69 6c 65 73 20 34 |.n --.Co|mpiles 4|
|00000d50| 2d 62 79 74 65 20 6e 20 | 69 6e 74 6f 20 74 68 65 |-byte n |into the|
|00000d60| 20 6e 65 78 74 20 61 76 | 61 69 6c 61 62 6c 65 20 | next av|ailable |
|00000d70| 64 69 63 74 69 6f 6e 61 | 72 79 20 61 64 64 72 65 |dictiona|ry addre|
|00000d80| 73 73 2e 0d 43 2c 09 77 | 20 2d 2d 09 43 6f 6d 70 |ss..C,.w| --.Comp|
|00000d90| 69 6c 65 73 20 31 2d 62 | 79 74 65 20 63 20 69 6e |iles 1-b|yte c in|
|00000da0| 74 6f 20 74 68 65 20 6e | 65 78 74 20 61 76 61 69 |to the n|ext avai|
|00000db0| 6c 61 62 6c 65 20 64 69 | 63 74 69 6f 6e 61 72 79 |lable di|ctionary|
|00000dc0| 20 61 64 64 72 65 73 73 | 2e 0d 57 2c 09 77 20 2d | address|..W,.w -|
|00000dd0| 2d 09 43 6f 6d 70 69 6c | 65 73 20 32 2d 62 79 74 |-.Compil|es 2-byt|
|00000de0| 65 20 77 20 69 6e 74 6f | 20 74 68 65 20 6e 65 78 |e w into| the nex|
|00000df0| 74 20 61 76 61 69 6c 61 | 62 6c 65 20 64 69 63 74 |t availa|ble dict|
|00000e00| 69 6f 6e 61 72 79 20 61 | 64 64 72 65 73 73 2e 0d |ionary a|ddress..|
|00000e10| 0d 46 6f 72 77 61 72 64 | 09 2d 2d 20 20 3a 20 6e |.Forward|.--  : n|
|00000e20| 61 6d 65 0d 09 43 72 65 | 61 74 65 73 20 61 20 77 |ame..Cre|ates a w|
|00000e30| 6f 72 64 20 77 68 69 63 | 68 20 69 73 20 74 6f 20 |ord whic|h is to |
|00000e40| 62 65 20 64 65 66 69 6e | 65 64 20 6c 61 74 65 72 |be defin|ed later|
|00000e50| 20 77 69 74 68 20 3a 66 | 2c 20 74 68 65 20 73 70 | with :f|, the sp|
|00000e60| 65 63 69 61 6c 20 63 6f | 6c 6f 6e 20 63 6f 6d 70 |ecial co|lon comp|
|00000e70| 69 6c 65 72 20 0d 09 66 | 6f 72 20 66 6f 72 77 61 |iler ..f|or forwa|
|00000e80| 72 64 2d 72 65 66 65 72 | 65 6e 63 65 64 20 59 65 |rd-refer|enced Ye|
|00000e90| 72 6b 20 77 6f 72 64 73 | 2c 20 62 65 63 61 75 73 |rk words|, becaus|
|00000ea0| 65 20 3a 66 20 6d 61 6b | 65 73 20 74 68 65 20 77 |e :f mak|es the w|
|00000eb0| 6f 72 64 20 62 65 68 61 | 76 65 20 6c 69 6b 65 20 |ord beha|ve like |
|00000ec0| 61 20 0d 09 63 6f 6c 6f | 6e 20 64 65 66 69 6e 69 |a ..colo|n defini|
|00000ed0| 74 69 6f 6e 2e 20 20 49 | 66 20 79 6f 75 20 66 6f |tion.  I|f you fo|
|00000ee0| 72 67 65 74 20 74 6f 20 | 64 65 66 69 6e 65 20 61 |rget to |define a|
|00000ef0| 20 66 6f 72 77 61 72 64 | 2d 72 65 66 65 72 65 6e | forward|-referen|
|00000f00| 63 65 64 20 77 6f 72 64 | 2c 20 74 68 65 20 77 6f |ced word|, the wo|
|00000f10| 72 64 20 0d 09 69 73 73 | 75 65 73 20 74 68 65 20 |rd ..iss|ues the |
|00000f20| 6d 65 73 73 61 67 65 3a | 20 22 55 6e 72 65 73 6f |message:| "Unreso|
|00000f30| 6c 76 65 64 20 66 6f 72 | 77 61 72 64 20 72 65 66 |lved for|ward ref|
|00000f40| 65 72 65 6e 63 65 20 74 | 6f 3a 20 41 57 4f 52 44 |erence t|o: AWORD|
|00000f50| 20 61 74 20 61 64 64 72 | 65 73 73 3a 20 58 58 58 | at addr|ess: XXX|
|00000f60| 58 22 20 0d 09 61 6e 64 | 20 61 62 6f 72 74 73 2e |X" ..and| aborts.|
|00000f70| 20 20 54 6f 20 66 6f 72 | 77 61 72 64 20 72 65 66 |  To for|ward ref|
|00000f80| 65 72 65 6e 63 65 20 61 | 6e 20 6f 62 6a 65 63 74 |erence a|n object|
|00000f90| 2c 20 64 65 66 69 6e 65 | 20 61 20 76 61 6c 75 65 |, define| a value|
|00000fa0| 20 68 61 76 69 6e 67 20 | 74 68 65 20 73 61 6d 65 | having |the same|
|00000fb0| 20 0d 09 6e 61 6d 65 20 | 61 73 20 74 68 65 20 6f | ..name |as the o|
|00000fc0| 62 6a 65 63 74 2d 74 6f | 2d 62 65 2e 20 20 4c 61 |bject-to|-be.  La|
|00000fd0| 74 65 72 20 63 72 65 61 | 74 65 20 74 68 65 20 6f |ter crea|te the o|
|00000fe0| 62 6a 65 63 74 20 61 73 | 20 79 6f 75 20 77 6f 75 |bject as| you wou|
|00000ff0| 6c 64 20 6e 6f 72 6d 61 | 6c 6c 79 2e 20 20 0d 0d |ld norma|lly.  ..|
|00001000| 3a 46 09 2d 2d 20 20 3a | 20 6e 61 6d 65 0d 09 42 |:F.--  :| name..B|
|00001010| 65 67 69 6e 73 20 63 6f | 6d 70 69 6c 61 74 69 6f |egins co|mpilatio|
|00001020| 6e 20 6f 66 20 61 20 77 | 6f 72 64 20 77 68 69 63 |n of a w|ord whic|
|00001030| 68 20 77 61 73 20 70 72 | 65 76 69 6f 75 73 6c 79 |h was pr|eviously|
|00001040| 20 0d 09 66 6f 72 77 61 | 72 64 2d 72 65 66 65 72 | ..forwa|rd-refer|
|00001050| 65 6e 63 65 64 2e 20 20 | 3a 66 20 63 72 65 61 74 |enced.  |:f creat|
|00001060| 65 73 20 61 20 68 65 61 | 64 65 72 6c 65 73 73 20 |es a hea|derless |
|00001070| 65 6e 74 72 79 20 66 6f | 72 20 74 68 65 20 77 6f |entry fo|r the wo|
|00001080| 72 64 20 0d 09 61 6e 64 | 20 74 68 65 6e 20 70 61 |rd ..and| then pa|
|00001090| 74 63 68 65 73 20 74 68 | 65 20 70 72 65 76 69 6f |tches th|e previo|
|000010a0| 75 73 20 65 6e 74 72 79 | 20 74 6f 20 70 6f 69 6e |us entry| to poin|
|000010b0| 74 20 74 6f 20 74 68 65 | 20 6e 65 77 6c 79 20 0d |t to the| newly .|
|000010c0| 09 63 6f 6d 70 69 6c 65 | 64 20 64 65 66 69 6e 69 |.compile|d defini|
|000010d0| 74 69 6f 6e 2e 20 20 46 | 6f 72 77 61 72 64 2d 72 |tion.  F|orward-r|
|000010e0| 65 66 65 72 65 6e 63 69 | 6e 67 20 69 73 20 75 73 |eferenci|ng is us|
|000010f0| 65 66 75 6c 20 77 68 65 | 6e 20 61 20 77 6f 72 64 |eful whe|n a word|
|00001100| 20 0d 09 69 73 20 74 6f | 20 62 65 20 75 73 65 64 | ..is to| be used|
|00001110| 20 62 65 66 6f 72 65 20 | 69 74 20 63 61 6e 20 62 | before |it can b|
|00001120| 65 20 64 65 66 69 6e 65 | 64 2e 20 20 59 6f 75 20 |e define|d.  You |
|00001130| 65 6e 64 20 74 68 65 20 | 63 6f 6d 70 69 6c 61 74 |end the |compilat|
|00001140| 69 6f 6e 20 0d 09 77 69 | 74 68 20 3b 66 2e 0d 09 |ion ..wi|th ;f...|
|00001150| 0d 3b 46 09 2d 2d 0d 09 | 45 6e 64 73 20 63 6f 6d |.;F.--..|Ends com|
|00001160| 70 69 6c 61 74 69 6f 6e | 20 6f 66 20 61 20 77 6f |pilation| of a wo|
|00001170| 72 64 20 77 68 69 63 68 | 20 77 61 73 20 64 65 66 |rd which| was def|
|00001180| 69 6e 65 64 20 77 69 74 | 68 20 3a 66 2e 20 20 53 |ined wit|h :f.  S|
|00001190| 65 65 20 66 6f 72 77 61 | 72 64 2e 0d 0d 49 4d 4d |ee forwa|rd...IMM|
|000011a0| 45 44 49 41 54 45 09 2d | 2d 09 73 74 61 6e 64 61 |EDIATE.-|-.standa|
|000011b0| 72 64 0d 0d 49 4e 4c 49 | 4e 45 7b 09 2d 2d 20 20 |rd..INLI|NE{.--  |
|000011c0| 3a 20 77 6f 72 64 20 2e | 2e 2e 20 7d 0d 09 43 6f |: word .|.. }..Co|
|000011d0| 6d 6d 65 6e 63 65 73 20 | 61 20 70 69 65 63 65 20 |mmences |a piece |
|000011e0| 6f 66 20 69 6e 6c 69 6e | 65 20 63 6f 64 65 2e 20 |of inlin|e code. |
|000011f0| 20 41 6c 6c 6f 77 73 20 | 66 61 73 74 65 72 20 65 | Allows |faster e|
|00001200| 78 65 63 75 74 69 6f 6e | 2e 20 20 57 65 20 61 73 |xecution|.  We as|
|00001210| 73 75 6d 65 20 74 68 61 | 74 20 0d 09 69 6e 6c 69 |sume tha|t ..inli|
|00001220| 6e 65 20 63 6f 64 65 20 | 63 68 75 6e 6b 73 20 77 |ne code |chunks w|
|00001230| 69 6c 6c 20 62 65 20 66 | 61 69 72 6c 79 20 73 68 |ill be f|airly sh|
|00001240| 6f 72 74 2c 20 61 6e 64 | 20 61 72 65 20 74 6f 20 |ort, and| are to |
|00001250| 62 65 20 6f 70 74 69 6d | 69 7a 65 64 20 66 6f 72 |be optim|ized for|
|00001260| 20 73 70 65 65 64 2e 20 | 20 0d 0d 0d 45 56 41 4c | speed. | ...EVAL|
|00001270| 55 41 54 45 09 61 64 64 | 72 20 6c 65 6e 20 2d 2d |UATE.add|r len --|
|00001280| 0d 20 20 20 20 41 4e 53 | 49 20 73 74 61 6e 64 61 |.    ANS|I standa|
|00001290| 72 64 2e 20 20 4d 61 6b | 65 73 20 74 68 65 20 70 |rd.  Mak|es the p|
|000012a0| 61 73 73 65 64 2d 69 6e | 20 73 74 72 69 6e 67 20 |assed-in| string |
|000012b0| 74 68 65 20 69 6e 70 75 | 74 20 73 74 72 65 61 6d |the inpu|t stream|
|000012c0| 20 66 6f 72 20 0d 09 69 | 6e 74 65 72 70 72 65 74 | for ..i|nterpret|
|000012d0| 61 74 69 6f 6e 20 6f 72 | 20 63 6f 6d 70 69 6c 61 |ation or| compila|
|000012e0| 74 69 6f 6e 2c 20 75 6e | 74 69 6c 20 69 74 20 69 |tion, un|til it i|
|000012f0| 73 20 65 78 68 61 75 73 | 74 65 64 2e 20 0d 09 0d |s exhaus|ted. ...|
|00001300| 45 58 2d 47 45 4e 09 63 | 66 61 20 2d 2d 0d 09 22 |EX-GEN.c|fa --.."|
|00001310| 45 78 65 63 75 74 65 20 | 67 65 6e 65 72 61 6c 22 |Execute |general"|
|00001320| 2e 20 20 45 78 65 63 75 | 74 65 73 20 74 68 65 20 |.  Execu|tes the |
|00001330| 77 6f 72 64 20 77 69 74 | 68 20 74 68 65 20 67 69 |word wit|h the gi|
|00001340| 76 65 6e 20 63 66 61 2e | 20 20 54 68 65 20 77 6f |ven cfa.|  The wo|
|00001350| 72 64 20 6d 61 79 20 62 | 65 20 0d 09 61 6e 79 74 |rd may b|e ..anyt|
|00001360| 68 69 6e 67 2e 20 20 49 | 74 20 69 73 20 65 78 65 |hing.  I|t is exe|
|00001370| 63 75 74 65 64 20 62 79 | 20 63 6f 6d 70 69 6c 69 |cuted by| compili|
|00001380| 6e 67 20 69 74 20 69 6e | 74 6f 20 61 20 74 65 6d |ng it in|to a tem|
|00001390| 70 6f 72 61 72 79 20 62 | 75 66 66 65 72 2c 20 74 |porary b|uffer, t|
|000013a0| 68 65 6e 20 0d 09 62 72 | 61 6e 63 68 69 6e 67 20 |hen ..br|anching |
|000013b0| 74 68 65 72 65 2e 20 20 | 53 6c 6f 77 65 72 20 74 |there.  |Slower t|
|000013c0| 68 61 6e 20 45 78 65 63 | 75 74 65 2c 20 62 75 74 |han Exec|ute, but|
|000013d0| 20 75 6e 6c 69 6b 65 20 | 45 78 65 63 75 74 65 2c | unlike |Execute,|
|000013e0| 20 77 69 6c 6c 20 72 65 | 61 6c 6c 79 20 65 78 65 | will re|ally exe|
|000013f0| 63 75 74 65 20 0d 09 61 | 6e 79 74 68 69 6e 67 2e |cute ..a|nything.|
|00001400| 20 20 0d 0d 45 58 2d 4d | 45 54 48 4f 44 09 6f 62 |  ..EX-M|ETHOD.ob|
|00001410| 6a 20 63 66 61 20 2d 2d | 0d 09 45 78 65 63 75 74 |j cfa --|..Execut|
|00001420| 65 73 20 74 68 65 20 6d | 65 74 68 6f 64 20 77 69 |es the m|ethod wi|
|00001430| 74 68 20 74 68 65 20 67 | 69 76 65 6e 20 63 66 61 |th the g|iven cfa|
|00001440| 2c 20 75 73 69 6e 67 20 | 74 68 65 20 67 69 76 65 |, using |the give|
|00001450| 6e 20 6f 62 6a 65 63 74 | 2e 0d 0d 45 58 45 43 55 |n object|...EXECU|
|00001460| 54 45 09 63 66 61 20 2d | 2d 09 73 74 61 6e 64 61 |TE.cfa -|-.standa|
|00001470| 72 64 0d 0d 45 58 4e 09 | 63 66 61 20 6e 20 2d 2d |rd..EXN.|cfa n --|
|00001480| 0d 09 69 73 20 74 6f 20 | 45 58 2d 47 45 4e 20 77 |..is to |EX-GEN w|
|00001490| 68 61 74 20 28 43 4f 4d | 50 4e 29 20 69 73 20 74 |hat (COM|PN) is t|
|000014a0| 6f 20 28 43 4f 4d 50 29 | 2e 20 20 49 74 20 68 61 |o (COMP)|.  It ha|
|000014b0| 73 20 74 68 65 20 61 64 | 64 69 74 69 6f 6e 61 6c |s the ad|ditional|
|000014c0| 20 70 61 72 61 6d 65 74 | 65 72 20 6e 20 0d 09 77 | paramet|er n ..w|
|000014d0| 68 69 63 68 20 69 73 20 | 61 63 74 69 6f 6e 20 63 |hich is |action c|
|000014e0| 6f 64 65 20 66 6f 72 20 | 2d 3e 20 2b 2b 3e 20 65 |ode for |-> ++> e|
|000014f0| 74 63 2e 20 20 42 65 63 | 61 75 73 65 20 74 68 69 |tc.  Bec|ause thi|
|00001500| 73 20 63 61 6e 20 62 65 | 20 63 61 6c 6c 65 64 20 |s can be| called |
|00001510| 66 72 6f 6d 20 45 58 2d | 47 45 4e 20 0d 09 28 77 |from EX-|GEN ..(w|
|00001520| 68 69 63 68 20 6d 61 79 | 20 62 65 20 65 78 65 63 |hich may| be exec|
|00001530| 75 74 69 6e 67 20 61 20 | 70 72 65 66 69 78 20 6f |uting a |prefix o|
|00001540| 70 29 2c 20 77 65 20 75 | 73 65 20 74 68 65 20 61 |p), we u|se the a|
|00001550| 6c 74 65 72 6e 61 74 65 | 20 65 78 65 63 75 74 69 |lternate| executi|
|00001560| 6f 6e 20 62 75 66 66 65 | 72 20 0d 09 45 78 42 75 |on buffe|r ..ExBu|
|00001570| 66 31 2e 20 20 0d 0d 49 | 4e 54 45 52 50 52 45 54 |f1.  ..I|NTERPRET|
|00001580| 0d 20 20 20 20 69 73 20 | 74 68 65 20 69 6e 74 65 |.    is |the inte|
|00001590| 72 70 72 65 74 61 74 69 | 6f 6e 20 6c 6f 6f 70 2e |rpretati|on loop.|
|000015a0| 20 20 57 6f 72 64 73 20 | 66 72 6f 6d 20 74 68 65 |  Words |from the|
|000015b0| 20 69 6e 70 75 74 20 73 | 74 72 65 61 6d 20 61 72 | input s|tream ar|
|000015c0| 65 20 69 6e 74 65 72 70 | 72 65 74 65 64 20 0d 09 |e interp|reted ..|
|000015d0| 75 6e 74 69 6c 20 74 68 | 65 20 69 6e 70 75 74 20 |until th|e input |
|000015e0| 69 73 20 65 78 68 61 75 | 73 74 65 64 2e 20 20 0d |is exhau|sted.  .|
|000015f0| 0d 49 4e 54 52 50 31 09 | 2d 2d 20 20 3a 20 77 6f |.INTRP1.|--  : wo|
|00001600| 72 64 09 49 6e 74 65 72 | 70 72 65 74 73 20 6f 6e |rd.Inter|prets on|
|00001610| 65 20 77 6f 72 64 2f 6e | 75 6d 62 65 72 20 66 72 |e word/n|umber fr|
|00001620| 6f 6d 20 74 68 65 20 69 | 6e 70 75 74 20 73 74 72 |om the i|nput str|
|00001630| 65 61 6d 2e 0d 0d 50 41 | 54 43 48 45 53 5f 44 4f |eam...PA|TCHES_DO|
|00001640| 4e 45 09 2d 2d 0d 09 49 | 66 20 79 6f 75 20 65 76 |NE.--..I|f you ev|
|00001650| 65 72 20 6e 65 65 64 20 | 74 6f 20 70 61 74 63 68 |er need |to patch|
|00001660| 20 69 6e 73 74 72 75 63 | 74 69 6f 6e 73 2c 20 63 | instruc|tions, c|
|00001670| 61 6c 6c 20 74 68 69 73 | 20 77 68 65 6e 20 79 6f |all this| when yo|
|00001680| 75 27 72 65 20 66 69 6e | 69 73 68 65 64 2e 20 20 |u're fin|ished.  |
|00001690| 49 74 20 0d 09 66 6c 75 | 73 68 65 73 20 74 68 65 |It ..flu|shes the|
|000016a0| 20 69 6e 73 74 72 75 63 | 74 69 6f 6e 20 63 61 63 | instruc|tion cac|
|000016b0| 68 65 20 69 66 20 6e 65 | 63 65 73 73 61 72 79 20 |he if ne|cessary |
|000016c0| 74 6f 20 6d 61 6b 65 20 | 73 75 72 65 20 74 68 61 |to make |sure tha|
|000016d0| 74 20 74 68 65 20 6e 65 | 77 20 0d 09 69 6e 73 74 |t the ne|w ..inst|
|000016e0| 72 75 63 74 69 6f 6e 73 | 20 77 69 6c 6c 20 72 65 |ructions| will re|
|000016f0| 61 6c 6c 79 20 62 65 20 | 65 78 65 63 75 74 65 64 |ally be |executed|
|00001700| 2e 20 20 50 41 54 43 48 | 20 61 6e 64 20 28 50 41 |.  PATCH| and (PA|
|00001710| 54 43 48 29 20 63 61 6c | 6c 20 69 74 20 61 6c 72 |TCH) cal|l it alr|
|00001720| 65 61 64 79 2c 20 73 6f | 20 69 66 20 0d 09 79 6f |eady, so| if ..yo|
|00001730| 75 20 61 72 65 20 75 73 | 69 6e 67 20 74 68 65 73 |u are us|ing thes|
|00001740| 65 2c 20 79 6f 75 20 64 | 6f 6e 27 74 20 6e 65 65 |e, you d|on't nee|
|00001750| 64 20 74 6f 20 63 61 6c | 6c 20 50 61 74 63 68 65 |d to cal|l Patche|
|00001760| 73 5f 64 6f 6e 65 2e 20 | 20 0d 0d 50 4f 53 54 50 |s_done. | ..POSTP|
|00001770| 4f 4e 45 09 2d 2d 0d 09 | 49 6e 20 74 68 69 73 20 |ONE.--..|In this |
|00001780| 73 79 73 74 65 6d 2c 20 | 63 6f 6d 70 69 6c 61 74 |system, |compilat|
|00001790| 69 6f 6e 20 69 73 20 64 | 6f 6e 65 20 62 79 20 65 |ion is d|one by e|
|000017a0| 78 65 63 75 74 69 6e 67 | 20 74 68 65 20 63 6f 6d |xecuting| the com|
|000017b0| 70 69 6c 61 74 69 6f 6e | 20 68 61 6e 64 6c 65 72 |pilation| handler|
|000017c0| 20 66 6f 72 20 0d 09 74 | 68 65 20 77 6f 72 64 20 | for ..t|he word |
|000017d0| 69 6e 20 71 75 65 73 74 | 69 6f 6e 2e 20 20 50 4f |in quest|ion.  PO|
|000017e0| 53 54 50 4f 4e 45 20 6d | 75 73 74 20 74 68 65 72 |STPONE m|ust ther|
|000017f0| 65 66 6f 72 65 20 62 65 | 20 69 6d 6d 65 64 69 61 |efore be| immedia|
|00001800| 74 65 2c 20 61 6e 64 20 | 63 6f 6d 70 69 6c 65 20 |te, and |compile |
|00001810| 74 68 65 20 0d 09 72 69 | 67 68 74 20 63 6f 64 65 |the ..ri|ght code|
|00001820| 20 69 6e 74 6f 20 74 68 | 65 20 63 6c 69 65 6e 74 | into th|e client|
|00001830| 20 64 65 66 69 6e 69 74 | 69 6f 6e 2e 20 20 54 68 | definit|ion.  Th|
|00001840| 69 73 20 63 6f 64 65 20 | 63 6f 6e 73 69 73 74 73 |is code |consists|
|00001850| 20 6f 66 20 61 20 6c 69 | 74 65 72 61 6c 20 70 75 | of a li|teral pu|
|00001860| 73 68 20 6f 66 20 0d 09 | 74 68 65 20 50 4f 53 54 |sh of ..|the POST|
|00001870| 50 4f 4e 45 64 20 77 6f | 72 64 27 73 20 63 66 61 |PONEd wo|rd's cfa|
|00001880| 2c 20 74 68 65 6e 20 61 | 20 63 61 6c 6c 20 74 6f |, then a| call to|
|00001890| 20 28 43 4f 4d 50 29 2e | 20 20 0d 0d 51 55 49 54 | (COMP).|  ..QUIT|
|000018a0| 09 2d 2d 09 73 74 61 6e | 64 61 72 64 0d 0d 54 59 |.--.stan|dard..TY|
|000018b0| 50 45 7b 09 2d 2d 20 20 | 3a 20 20 6e 61 6d 65 31 |PE{.--  |:  name1|
|000018c0| 20 6e 61 6d 65 32 20 65 | 74 63 2e 0d 09 54 59 50 | name2 e|tc...TYP|
|000018d0| 45 7b 20 64 65 66 69 6e | 65 73 20 61 20 50 61 73 |E{ defin|es a Pas|
|000018e0| 63 61 6c 2d 6c 69 6b 65 | 20 65 6e 75 6d 65 72 61 |cal-like| enumera|
|000018f0| 74 65 64 20 74 79 70 65 | 2e 20 20 41 74 20 74 68 |ted type|.  At th|
|00001900| 69 73 20 73 74 61 67 65 | 20 77 65 20 64 6f 6e 27 |is stage| we don'|
|00001910| 74 20 67 69 76 65 20 61 | 20 0d 09 6e 61 6d 65 20 |t give a| ..name |
|00001920| 74 6f 20 74 68 65 20 22 | 74 79 70 65 22 20 61 73 |to the "|type" as|
|00001930| 20 73 75 63 68 2c 20 61 | 73 20 77 65 20 63 61 6e | such, a|s we can|
|00001940| 27 74 20 64 6f 20 61 6e | 79 74 68 69 6e 67 20 72 |'t do an|ything r|
|00001950| 65 61 6c 6c 79 20 73 65 | 6e 73 69 62 6c 65 20 77 |eally se|nsible w|
|00001960| 69 74 68 20 69 74 2e 20 | 20 0d 09 48 6f 77 65 76 |ith it. | ..Howev|
|00001970| 65 72 20 6c 61 74 65 72 | 20 77 65 20 63 61 6e 20 |er later| we can |
|00001980| 6f 70 74 69 6f 6e 61 6c | 6c 79 20 6c 6f 61 64 20 |optional|ly load |
|00001990| 74 68 65 20 45 4e 55 4d | 2d 54 59 50 45 20 63 6c |the ENUM|-TYPE cl|
|000019a0| 61 73 73 20 77 68 69 63 | 68 20 69 73 20 72 61 74 |ass whic|h is rat|
|000019b0| 68 65 72 20 6d 6f 72 65 | 20 0d 09 50 61 73 63 61 |her more| ..Pasca|
|000019c0| 6c 2d 6c 69 6b 65 2e 20 | 20 42 75 74 20 65 76 65 |l-like. | But eve|
|000019d0| 6e 20 77 69 74 68 6f 75 | 74 20 74 68 61 74 2c 20 |n withou|t that, |
|000019e0| 74 68 65 20 65 6e 75 6d | 65 72 61 74 69 6f 6e 20 |the enum|eration |
|000019f0| 69 73 20 75 73 65 66 75 | 6c 20 62 79 20 69 74 73 |is usefu|l by its|
|00001a00| 65 6c 66 2e 20 20 0d 0d | 7b 09 2d 2d 0d 09 55 73 |elf.  ..|{.--..Us|
|00001a10| 65 64 20 74 6f 20 62 65 | 67 69 6e 20 6c 69 73 74 |ed to be|gin list|
|00001a20| 20 6f 66 20 6c 6f 63 61 | 6c 20 76 61 72 69 61 62 | of loca|l variab|
|00001a30| 6c 65 73 20 61 6e 64 20 | 6e 61 6d 65 64 20 69 6e |les and |named in|
|00001a40| 70 75 74 20 70 61 72 61 | 6d 65 74 65 72 73 2e 20 |put para|meters. |
|00001a50| 20 4e 6f 74 65 20 0d 09 | 74 68 61 74 20 74 68 65 | Note ..|that the|
|00001a60| 20 63 6f 6d 70 69 6c 65 | 72 20 77 69 6c 6c 66 69 | compile|r willfi|
|00001a70| 72 73 74 20 73 65 61 72 | 63 68 20 74 68 69 73 20 |rst sear|ch this |
|00001a80| 6c 69 73 74 2c 20 73 6f | 20 74 68 65 73 65 20 6e |list, so| these n|
|00001a90| 61 6d 65 73 20 74 61 6b | 65 20 0d 09 70 72 65 63 |ames tak|e ..prec|
|00001aa0| 65 64 65 6e 63 65 20 6f | 76 65 72 20 6f 74 68 65 |edence o|ver othe|
|00001ab0| 72 20 6e 61 6d 65 73 20 | 69 6e 20 74 68 65 20 64 |r names |in the d|
|00001ac0| 69 63 74 69 6f 6e 61 72 | 79 2e 20 20 0d 0d 54 52 |ictionar|y.  ..TR|
|00001ad0| 41 56 09 63 66 61 20 70 | 61 72 6d 20 2d 2d 0d 09 |AV.cfa p|arm --..|
|00001ae0| 54 72 61 76 65 72 73 65 | 73 20 74 68 65 20 64 69 |Traverse|s the di|
|00001af0| 63 74 69 6f 6e 61 72 79 | 2c 20 70 61 73 73 69 6e |ctionary|, passin|
|00001b00| 67 20 65 61 63 68 20 63 | 66 61 20 61 6e 64 20 74 |g each c|fa and t|
|00001b10| 68 65 20 70 61 72 6d 20 | 74 6f 20 74 68 65 20 70 |he parm |to the p|
|00001b20| 61 73 73 65 64 2d 69 6e | 20 0d 09 70 72 6f 63 2e |assed-in| ..proc.|
|00001b30| 20 20 0d 0d 54 52 41 56 | 2d 46 52 4f 4d 09 63 66 |  ..TRAV|-FROM.cf|
|00001b40| 61 20 70 61 72 6d 20 61 | 64 64 72 20 2d 2d 0d 09 |a parm a|ddr --..|
|00001b50| 41 73 20 66 6f 72 20 54 | 52 41 56 2c 20 62 75 74 |As for T|RAV, but|
|00001b60| 20 73 74 61 72 74 73 20 | 66 72 6f 6d 20 74 68 65 | starts |from the|
|00001b70| 20 66 69 72 73 74 20 77 | 6f 72 64 20 77 68 6f 73 | first w|ord whos|
|00001b80| 65 20 6c 66 61 20 69 73 | 20 62 65 6c 6f 77 20 6f |e lfa is| below o|
|00001b90| 72 20 61 74 20 74 68 65 | 20 0d 09 67 69 76 65 6e |r at the| ..given|
|00001ba0| 20 61 64 64 72 65 73 73 | 2e 20 20 0d 0d 54 52 41 | address|.  ..TRA|
|00001bb0| 56 45 52 53 45 09 3f 09 | 0d 0d 52 45 53 45 52 56 |VERSE.?.|..RESERV|
|00001bc0| 45 09 6e 20 2d 2d 09 41 | 6c 6c 6f 74 73 20 74 68 |E.n --.A|llots th|
|00001bd0| 65 20 6e 65 78 74 20 6e | 20 62 79 74 65 73 20 69 |e next n| bytes i|
|00001be0| 6e 20 74 68 65 20 64 69 | 63 74 69 6f 6e 61 72 79 |n the di|ctionary|
|00001bf0| 20 61 6e 64 20 65 72 61 | 73 65 73 20 74 68 65 6d | and era|ses them|
|00001c00| 2e 0d 0d 52 45 56 45 41 | 4c 09 2d 2d 09 4d 61 6b |...REVEA|L.--.Mak|
|00001c10| 65 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6e |es the c|urrent n|
|00001c20| 61 6d 65 20 76 69 73 69 | 62 6c 65 20 61 67 61 69 |ame visi|ble agai|
|00001c30| 6e 2e 20 53 65 65 20 68 | 69 64 65 2e 0d 0d 4e 41 |n. See h|ide...NA|
|00001c40| 4d 45 3f 09 61 64 64 72 | 20 2d 2d 20 61 64 64 72 |ME?.addr| -- addr|
|00001c50| 20 62 0d 09 52 65 74 75 | 72 6e 73 20 54 72 75 65 | b..Retu|rns True|
|00001c60| 20 69 66 20 74 68 65 20 | 70 61 73 73 65 64 2d 69 | if the |passed-i|
|00001c70| 6e 20 61 64 64 72 20 61 | 70 70 65 61 72 73 20 74 |n addr a|ppears t|
|00001c80| 6f 20 62 65 20 61 20 63 | 66 61 20 77 69 74 68 20 |o be a c|fa with |
|00001c90| 61 20 63 6f 72 72 65 73 | 70 6f 6e 64 69 6e 67 20 |a corres|ponding |
|00001ca0| 0d 09 76 61 6c 69 64 20 | 6e 61 6d 65 20 66 69 65 |..valid |name fie|
|00001cb0| 6c 64 2e 20 20 0d 4f 42 | 4a 3f 09 6f 62 6a 3f 20 |ld.  .OB|J?.obj? |
|00001cc0| 2d 2d 20 6f 62 6a 3f 20 | 63 6c 61 73 73 20 20 7c |-- obj? |class  ||
|00001cd0| 20 20 2d 2d 20 5e 6f 62 | 6a 3f 20 30 0d 09 47 65 |  -- ^ob|j? 0..Ge|
|00001ce0| 6e 65 72 61 6c 20 74 65 | 73 74 20 66 6f 72 20 61 |neral te|st for a|
|00001cf0| 6e 20 6f 62 6a 65 63 74 | 2e 20 20 4e 6f 74 20 63 |n object|.  Not c|
|00001d00| 6f 6d 70 6c 65 74 65 6c | 79 20 72 69 67 6f 72 6f |ompletel|y rigoro|
|00001d10| 75 73 2c 20 73 6f 20 77 | 65 20 73 68 6f 75 6c 64 |us, so w|e should|
|00001d20| 6e 27 74 20 75 73 65 20 | 0d 09 69 74 20 69 6e 20 |n't use |..it in |
|00001d30| 61 20 54 52 41 56 2c 20 | 62 75 74 20 70 72 65 74 |a TRAV, |but pret|
|00001d40| 74 79 20 67 6f 6f 64 20 | 6e 65 76 65 72 74 68 65 |ty good |neverthe|
|00001d50| 6c 65 73 73 2e 20 20 49 | 66 20 69 74 20 69 73 20 |less.  I|f it is |
|00001d60| 61 6e 20 6f 62 6a 65 63 | 74 2c 20 74 68 65 20 63 |an objec|t, the c|
|00001d70| 6c 61 73 73 20 0d 09 69 | 73 20 6c 65 66 74 20 69 |lass ..i|s left i|
|00001d80| 6e 20 74 68 65 43 6c 61 | 73 73 2e 20 20 57 65 20 |n theCla|ss.  We |
|00001d90| 64 6f 20 61 73 73 75 6d | 65 20 74 68 65 20 70 61 |do assum|e the pa|
|00001da0| 73 73 65 64 2d 69 6e 20 | 76 61 6c 75 65 20 6d 61 |ssed-in |value ma|
|00001db0| 79 20 6e 6f 74 20 62 65 | 20 61 20 6c 65 67 61 6c |y not be| a legal|
|00001dc0| 20 0d 09 61 64 64 72 65 | 73 73 20 61 74 20 61 6c | ..addre|ss at al|
|00001dd0| 6c 2e 20 20 0d 4f 42 4a | 43 46 41 3f 09 63 66 61 |l.  .OBJ|CFA?.cfa|
|00001de0| 20 2d 2d 20 63 66 61 20 | 62 0d 09 52 65 74 75 72 | -- cfa |b..Retur|
|00001df0| 6e 73 20 74 72 75 65 20 | 69 66 20 74 68 65 20 63 |ns true |if the c|
|00001e00| 66 61 20 72 65 66 65 72 | 73 20 74 6f 20 61 20 64 |fa refer|s to a d|
|00001e10| 69 63 74 69 6f 6e 61 72 | 79 20 6f 62 6a 65 63 74 |ictionar|y object|
|00001e20| 2e 20 20 4e 6f 74 65 3a | 20 74 68 69 73 20 77 6f |.  Note:| this wo|
|00001e30| 6e 27 74 20 0d 09 77 6f | 72 6b 20 66 6f 72 20 61 |n't ..wo|rk for a|
|00001e40| 20 68 65 61 70 20 6f 62 | 6a 65 63 74 2c 20 73 69 | heap ob|ject, si|
|00001e50| 6e 63 65 20 77 65 20 72 | 65 6c 79 20 6f 6e 20 74 |nce we r|ely on t|
|00001e60| 68 65 20 75 6e 69 71 75 | 65 20 68 61 6e 64 6c 65 |he uniqu|e handle|
|00001e70| 72 20 63 6f 64 65 20 66 | 6f 72 20 0d 09 6f 62 6a |r code f|or ..obj|
|00001e80| 65 63 74 73 20 62 65 69 | 6e 67 20 74 68 65 72 65 |ects bei|ng there|
|00001e90| 2c 20 61 6e 64 20 69 74 | 20 77 6f 6e 27 74 20 62 |, and it| won't b|
|00001ea0| 65 20 66 6f 72 20 68 65 | 61 70 20 6f 62 6a 65 63 |e for he|ap objec|
|00001eb0| 74 73 2e 20 20 42 75 74 | 20 74 68 69 73 20 69 73 |ts.  But| this is|
|00001ec0| 20 74 68 65 20 0d 09 6f | 6e 6c 79 20 77 61 79 20 | the ..o|nly way |
|00001ed0| 74 6f 20 67 65 74 20 61 | 20 72 65 61 6c 6c 79 20 |to get a| really |
|00001ee0| 72 69 67 6f 72 6f 75 73 | 20 63 68 65 63 6b 2c 20 |rigorous| check, |
|00001ef0| 77 68 69 63 68 20 77 65 | 20 6e 65 65 64 20 66 6f |which we| need fo|
|00001f00| 72 20 54 52 41 56 2e 20 | 20 57 65 20 61 73 73 75 |r TRAV. | We assu|
|00001f10| 6d 65 20 0d 09 63 66 61 | 20 69 73 20 72 65 61 6c |me ..cfa| is real|
|00001f20| 6c 79 20 61 20 63 66 61 | 2e 20 20 0d 48 45 52 45 |ly a cfa|.  .HERE|
|00001f30| 09 2d 2d 20 61 64 64 72 | 09 52 65 74 75 72 6e 73 |.-- addr|.Returns|
|00001f40| 20 74 68 65 20 6e 65 78 | 74 20 61 76 61 69 6c 61 | the nex|t availa|
|00001f50| 62 6c 65 20 64 69 63 74 | 69 6f 6e 61 72 79 20 6c |ble dict|ionary l|
|00001f60| 6f 63 61 74 69 6f 6e 2e | 0d 48 49 44 45 09 2d 2d |ocation.|.HIDE.--|
|00001f70| 0d 09 52 65 70 6c 61 63 | 65 20 53 6d 75 64 67 65 |..Replac|e Smudge|
|00001f80| 20 69 6e 20 4e 65 6f 6e | 2e 20 20 48 49 44 45 20 | in Neon|.  HIDE |
|00001f90| 68 69 64 65 73 20 74 68 | 65 20 6c 61 73 74 20 64 |hides th|e last d|
|00001fa0| 69 63 74 69 6f 6e 61 72 | 79 20 68 65 61 64 65 72 |ictionar|y header|
|00001fb0| 20 73 6f 20 74 68 61 74 | 20 46 49 4e 44 20 0d 09 | so that| FIND ..|
|00001fc0| 77 6f 6e 27 74 20 66 69 | 6e 64 20 69 74 2e 20 20 |won't fi|nd it.  |
|00001fd0| 52 45 56 45 41 4c 20 62 | 72 69 6e 67 73 20 69 74 |REVEAL b|rings it|
|00001fe0| 20 62 61 63 6b 20 61 67 | 61 69 6e 2e 20 20 55 73 | back ag|ain.  Us|
|00001ff0| 65 20 74 68 69 73 20 69 | 66 20 79 6f 75 20 77 61 |e this i|f you wa|
|00002000| 6e 74 20 74 68 65 20 0d | 09 70 72 65 76 69 6f 75 |nt the .|.previou|
|00002010| 73 20 75 73 65 20 6f 66 | 20 74 68 65 20 6e 61 6d |s use of| the nam|
|00002020| 65 2c 20 69 2e 65 2e 20 | 20 69 66 20 79 6f 75 20 |e, i.e. | if you |
|00002030| 44 4f 4e 27 54 20 77 61 | 6e 74 20 72 65 63 75 72 |DON'T wa|nt recur|
|00002040| 73 69 6f 6e 2e 20 20 0d | 4c 3e 4e 41 4d 45 09 3f |sion.  .|L>NAME.?|
|00002050| 09 0d 6c 61 74 65 73 74 | 09 2d 2d 20 6e 66 61 2d |..latest|.-- nfa-|
|00002060| 31 09 41 20 76 61 6c 75 | 65 2e 20 4c 65 61 76 65 |1.A valu|e. Leave|
|00002070| 73 20 74 68 65 20 6e 66 | 61 2d 31 20 6f 66 20 74 |s the nf|a-1 of t|
|00002080| 68 65 20 6c 61 73 74 20 | 64 65 66 69 6e 65 64 20 |he last |defined |
|00002090| 77 6f 72 64 2e 0d 4c 49 | 4e 4b 3e 09 3f 09 0d 4e |word..LI|NK>.?..N|
|000020a0| 3e 43 4f 55 4e 54 09 6e | 66 61 20 20 2d 2d 20 61 |>COUNT.n|fa  -- a|
|000020b0| 64 64 72 20 6c 65 6e 0d | 09 4c 65 61 76 65 73 20 |ddr len.|.Leaves |
|000020c0| 74 68 65 20 61 64 64 72 | 65 73 73 20 61 6e 64 20 |the addr|ess and |
|000020d0| 6c 65 6e 67 74 68 20 6f | 66 20 61 20 6e 61 6d 65 |length o|f a name|
|000020e0| 20 66 69 65 6c 64 2c 20 | 73 75 69 74 61 62 6c 65 | field, |suitable|
|000020f0| 20 66 6f 72 20 75 73 65 | 20 62 79 20 22 74 79 70 | for use| by "typ|
|00002100| 65 22 2e 0d 4e 3e 4c 49 | 4e 4b 09 3f 09 0d 3e 42 |e"..N>LI|NK.?..>B|
|00002110| 4f 44 59 09 3f 09 0d 3e | 43 4c 41 53 53 09 6f 62 |ODY.?..>|CLASS.ob|
|00002120| 6a 20 2d 2d 20 63 6c 61 | 73 73 20 7c 20 2d 2d 20 |j -- cla|ss | -- |
|00002130| 30 0d 09 43 6f 6e 76 65 | 72 74 73 20 61 6e 20 6f |0..Conve|rts an o|
|00002140| 62 6a 65 63 74 20 61 64 | 64 72 65 73 73 20 74 6f |bject ad|dress to|
|00002150| 20 69 74 73 20 63 6c 61 | 73 73 20 61 64 64 72 65 | its cla|ss addre|
|00002160| 73 73 2e 20 20 52 65 74 | 75 72 6e 73 20 7a 65 72 |ss.  Ret|urns zer|
|00002170| 6f 20 69 66 20 74 68 65 | 20 0d 09 70 61 73 73 65 |o if the| ..passe|
|00002180| 64 2d 69 6e 20 61 64 64 | 72 65 73 73 20 69 73 6e |d-in add|ress isn|
|00002190| 27 74 20 61 6e 20 6f 62 | 6a 65 63 74 20 61 64 64 |'t an ob|ject add|
|000021a0| 72 65 73 73 2e 20 20 4e | 65 65 64 73 20 74 6f 20 |ress.  N|eeds to |
|000021b0| 77 6f 72 6b 20 66 6f 72 | 20 68 65 61 70 20 61 73 |work for| heap as|
|000021c0| 20 77 65 6c 6c 20 0d 09 | 61 73 20 64 69 63 74 69 | well ..|as dicti|
|000021d0| 6f 6e 61 72 79 20 6f 62 | 6a 65 63 74 73 2e 20 20 |onary ob|jects.  |
|000021e0| 54 68 65 20 74 65 73 74 | 20 69 73 20 76 65 72 79 |The test| is very|
|000021f0| 20 75 6e 6c 69 6b 65 6c | 79 20 28 6d 61 79 62 65 | unlikel|y (maybe|
|00002200| 20 31 2f 32 2a 2a 32 34 | 29 20 74 6f 20 0d 09 69 | 1/2**24|) to ..i|
|00002210| 6e 64 69 63 61 74 65 20 | 61 20 6e 6f 6e 2d 6f 62 |ndicate |a non-ob|
|00002220| 6a 65 63 74 20 61 73 20 | 62 65 69 6e 67 20 61 6e |ject as |being an|
|00002230| 20 6f 62 6a 65 63 74 2e | 20 20 57 69 74 68 6f 75 | object.|  Withou|
|00002240| 74 20 74 61 67 67 65 64 | 20 73 74 6f 72 61 67 65 |t tagged| storage|
|00002250| 20 77 65 20 63 61 6e 27 | 74 20 0d 09 62 65 20 61 | we can'|t ..be a|
|00002260| 62 73 6f 6c 75 74 65 6c | 79 20 73 75 72 65 2e 20 |bsolutel|y sure. |
|00002270| 20 54 6f 20 73 61 76 65 | 20 74 69 6d 65 20 77 65 | To save| time we|
|00002280| 20 64 6f 6e 27 74 20 64 | 6f 20 61 20 63 6f 6e 73 | don't d|o a cons|
|00002290| 65 72 76 61 74 69 76 65 | 20 63 68 65 63 6b 20 6f |ervative| check o|
|000022a0| 6e 20 5e 6f 62 6a 20 0d | 09 61 63 74 75 61 6c 6c |n ^obj .|.actuall|
|000022b0| 79 20 62 65 69 6e 67 20 | 61 20 6c 65 67 61 6c 20 |y being |a legal |
|000022c0| 61 64 64 72 65 73 73 20 | 28 75 6e 6c 69 6b 65 20 |address |(unlike |
|000022d0| 43 46 41 3f 29 2c 20 61 | 70 61 72 74 20 66 72 6f |CFA?), a|part fro|
|000022e0| 6d 20 63 68 65 63 6b 69 | 6e 67 20 74 68 61 74 20 |m checki|ng that |
|000022f0| 69 74 20 0d 09 69 73 20 | 65 76 65 6e 2c 20 77 68 |it ..is |even, wh|
|00002300| 69 63 68 20 69 73 20 61 | 20 76 65 72 79 20 71 75 |ich is a| very qu|
|00002310| 69 63 6b 20 63 68 65 63 | 6b 2e 20 20 54 68 69 73 |ick chec|k.  This|
|00002320| 20 6d 65 61 6e 73 20 77 | 65 20 6d 61 79 20 63 72 | means w|e may cr|
|00002330| 61 73 68 20 69 66 20 61 | 6e 20 65 76 65 6e 20 0d |ash if a|n even .|
|00002340| 09 62 75 74 20 69 6c 6c | 65 67 61 6c 20 61 64 64 |.but ill|egal add|
|00002350| 72 65 73 73 20 69 73 20 | 70 61 73 73 65 64 20 69 |ress is |passed i|
|00002360| 6e 2e 20 20 54 68 65 20 | 70 72 65 73 75 6d 70 74 |n.  The |presumpt|
|00002370| 69 6f 6e 20 69 73 20 74 | 68 61 74 20 69 74 20 72 |ion is t|hat it r|
|00002380| 65 61 6c 6c 79 20 69 73 | 20 61 6e 20 0d 09 6f 62 |eally is| an ..ob|
|00002390| 6a 65 63 74 20 61 64 64 | 72 65 73 73 2c 20 61 6e |ject add|ress, an|
|000023a0| 64 20 74 68 61 74 20 61 | 6e 79 74 68 69 6e 67 20 |d that a|nything |
|000023b0| 65 6c 73 65 20 69 73 20 | 61 6e 20 28 75 6e 6c 69 |else is |an (unli|
|000023c0| 6b 65 6c 79 29 20 65 72 | 72 6f 72 2e 20 20 0d 3e |kely) er|ror.  .>|
|000023d0| 43 6c 61 73 73 43 66 61 | 09 6f 62 6a 20 2d 2d 20 |ClassCfa|.obj -- |
|000023e0| 63 6c 61 73 73 20 7c 20 | 2d 2d 20 30 0d 09 41 73 |class | |-- 0..As|
|000023f0| 20 66 6f 72 20 3e 43 4c | 41 53 53 2c 20 62 75 74 | for >CL|ASS, but|
|00002400| 20 69 66 20 74 68 65 20 | 63 6c 61 73 73 20 69 73 | if the |class is|
|00002410| 20 65 78 70 6f 72 74 65 | 64 20 66 72 6f 6d 20 61 | exporte|d from a|
|00002420| 20 6d 6f 64 75 6c 65 20 | 61 6e 64 20 79 6f 75 20 | module |and you |
|00002430| 61 72 65 20 0d 09 65 78 | 65 63 75 74 69 6e 67 20 |are ..ex|ecuting |
|00002440| 69 6e 20 74 68 65 20 6d | 61 69 6e 20 64 69 63 74 |in the m|ain dict|
|00002450| 69 6f 6e 61 72 79 2c 20 | 69 74 20 67 69 76 65 73 |ionary, |it gives|
|00002460| 20 74 68 65 20 63 66 61 | 20 6f 66 20 74 68 65 20 | the cfa| of the |
|00002470| 69 6d 70 6f 72 74 65 64 | 20 77 6f 72 64 2c 20 0d |imported| word, .|
|00002480| 09 77 69 74 68 6f 75 74 | 20 61 63 63 65 73 73 69 |.without| accessi|
|00002490| 6e 67 20 74 68 65 20 6d | 6f 64 75 6c 65 2e 20 20 |ng the m|odule.  |
|000024a0| 54 68 69 73 20 63 61 6e | 20 62 65 20 75 73 65 66 |This can| be usef|
|000024b0| 75 6c 20 69 66 20 79 6f | 75 20 6a 75 73 74 20 77 |ul if yo|u just w|
|000024c0| 61 6e 74 20 74 6f 20 0d | 09 69 64 65 6e 74 69 66 |ant to .|.identif|
|000024d0| 79 20 61 20 63 6c 61 73 | 73 20 77 69 74 68 6f 75 |y a clas|s withou|
|000024e0| 74 20 6e 65 65 64 69 6e | 67 20 61 6c 6c 20 74 68 |t needin|g all th|
|000024f0| 65 20 63 6c 61 73 73 20 | 69 6e 66 6f 2e 20 20 49 |e class |info.  I|
|00002500| 66 20 79 6f 75 20 61 72 | 65 20 65 78 65 63 75 74 |f you ar|e execut|
|00002510| 69 6e 67 20 0d 09 69 6e | 20 74 68 65 20 6d 6f 64 |ing ..in| the mod|
|00002520| 75 6c 65 2c 20 68 6f 77 | 65 76 65 72 2c 20 79 6f |ule, how|ever, yo|
|00002530| 75 20 77 69 6c 6c 20 67 | 65 74 20 74 68 65 20 63 |u will g|et the c|
|00002540| 66 61 20 6f 66 20 74 68 | 65 20 63 6c 61 73 73 20 |fa of th|e class |
|00002550| 69 6e 20 74 68 65 20 6d | 6f 64 75 6c 65 2e 20 20 |in the m|odule.  |
|00002560| 0d 09 54 68 65 20 67 65 | 6e 65 72 61 6c 20 72 75 |..The ge|neral ru|
|00002570| 6c 65 20 69 73 20 74 68 | 61 74 20 74 68 65 20 72 |le is th|at the r|
|00002580| 65 74 75 72 6e 65 64 20 | 63 66 61 20 77 69 6c 6c |eturned |cfa will|
|00002590| 20 61 6c 77 61 79 73 20 | 62 65 20 74 68 65 20 73 | always |be the s|
|000025a0| 61 6d 65 20 61 73 20 69 | 66 20 79 6f 75 20 0d 09 |ame as i|f you ..|
|000025b0| 68 61 64 20 6a 75 73 74 | 20 74 69 63 6b 65 64 20 |had just| ticked |
|000025c0| 74 68 65 20 63 6c 61 73 | 73 6e 61 6d 65 2c 20 77 |the clas|sname, w|
|000025d0| 68 65 72 65 76 65 72 20 | 79 6f 75 20 61 72 65 20 |herever |you are |
|000025e0| 65 78 65 63 75 74 69 6e | 67 2e 20 20 0d 3e 48 44 |executin|g.  .>HD|
|000025f0| 4c 52 09 3f 09 0d 3e 4c | 49 4e 4b 09 3f 09 0d 3e |LR.?..>L|INK.?..>|
|00002600| 4e 41 4d 45 09 63 66 61 | 20 2d 2d 20 6e 66 61 09 |NAME.cfa| -- nfa.|
|00002610| 52 65 74 75 72 6e 73 20 | 74 68 65 20 6e 61 6d 65 |Returns |the name|
|00002620| 20 66 69 65 6c 64 20 61 | 64 64 72 65 73 73 20 28 | field a|ddress (|
|00002630| 6e 66 61 29 20 66 6f 72 | 20 74 68 65 20 67 69 76 |nfa) for| the giv|
|00002640| 65 6e 20 63 66 61 2e 0d | 4e 41 4d 45 3e 09 3f 09 |en cfa..|NAME>.?.|
|00002650| 0d 45 4e 44 54 52 41 56 | 3f 09 2d 2d 20 62 0d 09 |.ENDTRAV|?.-- b..|
|00002660| 41 20 76 61 6c 75 65 2e | 20 20 4d 61 79 20 62 65 |A value.|  May be|
|00002670| 20 73 65 74 20 66 72 6f | 6d 20 77 69 74 68 69 6e | set fro|m within|
|00002680| 20 61 20 74 72 61 76 20 | 68 61 6e 64 6c 65 72 20 | a trav |handler |
|00002690| 74 6f 20 74 65 72 6d 69 | 6e 61 74 65 20 74 68 65 |to termi|nate the|
|000026a0| 20 74 72 61 76 2e 0d 66 | 65 6e 63 65 09 2d 2d 20 | trav..f|ence.-- |
|000026b0| 61 64 64 72 0d 09 41 20 | 76 61 6c 75 65 2e 20 4c |addr..A |value. L|
|000026c0| 65 61 76 65 73 20 74 68 | 65 20 61 64 64 72 65 73 |eaves th|e addres|
|000026d0| 73 20 62 65 6c 6f 77 20 | 77 68 69 63 68 20 66 6f |s below |which fo|
|000026e0| 72 67 65 74 20 77 69 6c | 6c 20 6e 6f 74 20 6f 70 |rget wil|l not op|
|000026f0| 65 72 61 74 65 2e 0d 46 | 49 4e 44 09 73 74 72 2d |erate..F|IND.str-|
|00002700| 61 64 64 72 20 2d 2d 20 | 63 66 61 20 66 6c 61 67 |addr -- |cfa flag|
|00002710| 20 20 7c 20 20 2d 2d 20 | 46 0d 09 46 6f 72 74 68 |  |  -- |F..Forth|
|00002720| 2d 38 33 2f 41 4e 53 49 | 20 73 74 61 6e 64 61 72 |-83/ANSI| standar|
|00002730| 64 2e 20 20 41 73 20 69 | 6e 20 4e 65 6f 6e 2c 20 |d.  As i|n Neon, |
|00002740| 63 61 6c 6c 73 20 74 68 | 65 20 76 65 63 74 6f 72 |calls th|e vector|
|00002750| 65 64 20 75 46 69 6e 64 | 20 66 69 72 73 74 2c 20 |ed uFind| first, |
|00002760| 74 68 65 6e 20 0d 09 73 | 69 6d 70 6c 79 20 72 65 |then ..s|imply re|
|00002770| 74 75 72 6e 73 20 69 66 | 20 75 46 69 6e 64 20 72 |turns if| uFind r|
|00002780| 65 74 75 72 6e 73 20 61 | 20 6e 6f 6e 2d 7a 65 72 |eturns a| non-zer|
|00002790| 6f 20 6e 2e 20 20 49 6e | 20 61 6c 6c 20 63 61 73 |o n.  In| all cas|
|000027a0| 65 73 2c 20 69 66 20 74 | 68 65 20 73 65 61 72 63 |es, if t|he searc|
|000027b0| 68 20 0d 09 73 75 63 63 | 65 65 64 73 2c 20 61 64 |h ..succ|eeds, ad|
|000027c0| 64 72 27 20 69 73 20 74 | 68 65 20 63 66 61 20 6f |dr' is t|he cfa o|
|000027d0| 66 20 74 68 65 20 66 6f | 75 6e 64 20 64 69 63 74 |f the fo|und dict|
|000027e0| 69 6f 6e 61 72 79 20 65 | 6e 74 72 79 2c 20 61 6e |ionary e|ntry, an|
|000027f0| 64 20 6e 20 69 73 20 2d | 31 20 66 6f 72 20 61 20 |d n is -|1 for a |
|00002800| 0d 09 6e 6f 6e 2d 69 6d | 6d 65 64 69 61 74 65 20 |..non-im|mediate |
|00002810| 77 6f 72 64 20 61 6e 64 | 20 31 20 66 6f 72 20 61 |word and| 1 for a|
|00002820| 6e 20 69 6d 6d 65 64 69 | 61 74 65 20 77 6f 72 64 |n immedi|ate word|
|00002830| 2e 20 20 49 66 20 74 68 | 65 20 73 65 61 72 63 68 |.  If th|e search|
|00002840| 20 66 61 69 6c 73 2c 20 | 6e 20 69 73 20 0d 09 7a | fails, |n is ..z|
|00002850| 65 72 6f 20 61 6e 64 20 | 61 64 64 72 27 20 69 73 |ero and |addr' is|
|00002860| 20 74 68 65 20 73 61 6d | 65 20 61 73 20 73 74 72 | the sam|e as str|
|00002870| 2d 61 64 64 72 2e 20 20 | 0d 46 4f 52 47 45 54 09 |-addr.  |.FORGET.|
|00002880| 2d 2d 20 3a 20 77 6f 72 | 64 0d 09 44 65 6c 65 74 |-- : wor|d..Delet|
|00002890| 65 73 20 74 68 65 20 77 | 6f 72 64 20 66 72 6f 6d |es the w|ord from|
|000028a0| 20 74 68 65 20 64 69 63 | 74 69 6f 6e 61 72 79 20 | the dic|tionary |
|000028b0| 61 6e 64 20 41 4c 4c 20 | 65 6e 74 72 69 65 73 20 |and ALL |entries |
|000028c0| 61 62 6f 76 65 20 69 74 | 20 28 69 2e 65 2e 2c 20 |above it| (i.e., |
|000028d0| 69 6e 20 0d 09 68 69 67 | 68 65 72 20 6d 65 6d 6f |in ..hig|her memo|
|000028e0| 72 79 29 2e 20 20 49 73 | 73 75 65 73 20 6d 65 73 |ry).  Is|sues mes|
|000028f0| 73 61 67 65 20 22 69 6e | 20 70 72 6f 74 65 63 74 |sage "in| protect|
|00002900| 65 64 20 64 69 63 74 69 | 6f 6e 61 72 79 22 20 69 |ed dicti|onary" i|
|00002910| 66 20 74 68 65 20 77 6f | 72 64 20 69 73 20 0d 09 |f the wo|rd is ..|
|00002920| 62 65 6c 6f 77 20 66 65 | 6e 63 65 2c 20 61 6e 64 |below fe|nce, and|
|00002930| 20 61 62 6f 72 74 73 2e | 20 20 0d 44 45 46 49 4e | aborts.|  .DEFIN|
|00002940| 45 44 3f 09 2d 2d 20 61 | 64 64 72 20 6e 20 20 3a |ED?.-- a|ddr n  :|
|00002950| 20 77 6f 72 64 0d 09 44 | 65 66 69 6e 65 64 20 61 | word..D|efined a|
|00002960| 73 20 20 4d 57 4f 52 44 | 20 46 49 4e 44 2e 20 20 |s  MWORD| FIND.  |
|00002970| 44 6f 65 73 20 61 20 46 | 49 4e 44 20 6f 6e 20 74 |Does a F|IND on t|
|00002980| 68 65 20 6e 65 78 74 20 | 77 6f 72 64 20 69 6e 20 |he next |word in |
|00002990| 74 68 65 20 69 6e 70 75 | 74 20 73 74 72 65 61 6d |the inpu|t stream|
|000029a0| 2e 0d 44 4f 45 53 3e 09 | 2d 2d 0d 09 44 65 66 69 |..DOES>.|--..Defi|
|000029b0| 6e 65 73 20 74 68 65 20 | 72 75 6e 74 69 6d 65 20 |nes the |runtime |
|000029c0| 61 63 74 69 6f 6e 20 6f | 66 20 61 20 77 6f 72 64 |action o|f a word|
|000029d0| 20 64 65 66 69 6e 65 64 | 20 77 69 74 68 20 3c 62 | defined| with <b|
|000029e0| 75 69 6c 64 73 2e 0d 3c | 42 55 49 4c 44 53 09 2d |uilds..<|BUILDS.-|
|000029f0| 2d 20 20 3a 20 20 6e 61 | 6d 65 0d 09 57 65 20 72 |-  :  na|me..We r|
|00002a00| 65 74 61 69 6e 20 3c 42 | 55 49 4c 44 53 20 74 6f |etain <B|UILDS to|
|00002a10| 20 62 65 20 75 73 65 64 | 20 69 6e 20 63 6f 6e 6a | be used| in conj|
|00002a20| 75 6e 63 74 69 6f 6e 20 | 77 69 74 68 20 44 4f 45 |unction |with DOE|
|00002a30| 53 3e 20 72 61 74 68 65 | 72 20 74 68 61 6e 20 0d |S> rathe|r than .|
|00002a40| 09 66 6f 6c 6c 6f 77 69 | 6e 67 20 74 68 65 20 73 |.followi|ng the s|
|00002a50| 74 61 6e 64 61 72 64 20 | 61 6e 64 20 75 73 69 6e |tandard |and usin|
|00002a60| 67 20 43 52 45 41 54 45 | 2e 20 20 54 68 69 73 20 |g CREATE|.  This |
|00002a70| 69 73 20 62 65 63 61 75 | 73 65 20 43 52 45 41 54 |is becau|se CREAT|
|00002a80| 45 64 20 77 6f 72 64 73 | 20 0d 09 68 61 76 65 20 |Ed words| ..have |
|00002a90| 74 68 65 20 64 61 74 61 | 20 72 69 67 68 74 20 61 |the data| right a|
|00002aa0| 74 20 74 68 65 20 63 66 | 61 2c 20 77 68 69 6c 65 |t the cf|a, while|
|00002ab0| 20 44 4f 45 53 3e 20 77 | 6f 72 64 73 20 68 61 76 | DOES> w|ords hav|
|00002ac0| 65 20 74 6f 20 68 61 76 | 65 20 61 20 70 6f 69 6e |e to hav|e a poin|
|00002ad0| 74 65 72 20 74 6f 20 0d | 09 74 68 65 20 44 4f 45 |ter to .|.the DOE|
|00002ae0| 53 3e 20 63 6f 64 65 2e | 20 20 53 6f 20 72 61 74 |S> code.|  So rat|
|00002af0| 68 65 72 20 74 68 61 6e | 20 77 61 73 74 65 20 73 |her than| waste s|
|00002b00| 70 61 63 65 20 69 6e 20 | 43 52 45 41 54 45 64 20 |pace in |CREATEd |
|00002b10| 77 6f 72 64 73 20 6f 72 | 20 64 6f 20 61 20 0d 09 |words or| do a ..|
|00002b20| 63 6f 6d 70 6c 69 63 61 | 74 65 64 20 6b 6c 75 64 |complica|ted klud|
|00002b30| 67 65 20 64 75 72 69 6e | 67 20 63 6f 6d 70 69 6c |ge durin|g compil|
|00002b40| 61 74 69 6f 6e 2c 20 77 | 65 20 75 73 65 20 3c 42 |ation, w|e use <B|
|00002b50| 55 49 4c 44 53 2e 20 20 | 0d 44 50 09 2d 2d 20 61 |UILDS.  |.DP.-- a|
|00002b60| 64 64 72 0d 09 41 20 76 | 61 6c 75 65 2e 20 20 4c |ddr..A v|alue.  L|
|00002b70| 65 61 76 65 73 20 74 68 | 65 20 61 64 64 72 65 73 |eaves th|e addres|
|00002b80| 73 20 6f 66 20 74 68 65 | 20 6e 65 78 74 20 6d 65 |s of the| next me|
|00002b90| 6d 6f 72 79 20 6c 6f 63 | 61 74 69 6f 6e 20 61 62 |mory loc|ation ab|
|00002ba0| 6f 76 65 20 74 68 65 20 | 0d 09 64 69 63 74 69 6f |ove the |..dictio|
|00002bb0| 6e 61 72 79 2e 20 20 0d | 43 4f 4e 54 45 58 54 09 |nary.  .|CONTEXT.|
|00002bc0| 2d 2d 20 61 64 64 72 09 | 0d 43 52 45 41 54 45 09 |-- addr.|.CREATE.|
|00002bd0| 2d 2d 20 20 3a 20 6e 61 | 6d 65 0d 09 54 68 69 73 |--  : na|me..This|
|00002be0| 20 69 73 20 6e 6f 77 20 | 46 6f 72 74 68 2d 38 33 | is now |Forth-83|
|00002bf0| 2f 41 4e 53 49 2e 20 20 | 43 72 65 61 74 65 73 20 |/ANSI.  |Creates |
|00002c00| 61 20 64 69 63 74 69 6f | 6e 61 72 79 20 68 65 61 |a dictio|nary hea|
|00002c10| 64 65 72 20 75 73 69 6e | 67 20 74 68 65 20 6e 65 |der usin|g the ne|
|00002c20| 78 74 20 77 6f 72 64 20 | 0d 09 69 6e 20 74 68 65 |xt word |..in the|
|00002c30| 20 69 6e 70 75 74 20 73 | 74 72 65 61 6d 2e 20 20 | input s|tream.  |
|00002c40| 49 66 20 74 68 69 73 20 | 6e 65 77 20 77 6f 72 64 |If this |new word|
|00002c50| 20 69 73 20 65 78 65 63 | 75 74 65 64 2c 20 69 74 | is exec|uted, it|
|00002c60| 20 72 65 74 75 72 6e 73 | 20 69 74 73 20 70 66 61 | returns| its pfa|
|00002c70| 2e 20 20 0d 09 57 68 61 | 74 20 77 65 20 61 63 74 |.  ..Wha|t we act|
|00002c80| 75 61 6c 6c 79 20 64 6f | 20 69 73 20 74 6f 20 63 |ually do| is to c|
|00002c90| 61 6c 6c 20 48 45 41 44 | 45 52 2c 20 74 68 65 6e |all HEAD|ER, then|
|00002ca0| 20 61 64 64 20 69 6e 20 | 74 68 65 20 61 70 70 72 | add in |the appr|
|00002cb0| 6f 70 72 69 61 74 65 20 | 68 61 6e 64 6c 65 72 20 |opriate |handler |
|00002cc0| 0d 09 63 6f 64 65 2e 20 | 20 0d 41 4c 49 47 4e 2d |..code. | .ALIGN-|
|00002cd0| 44 50 09 2d 2d 09 49 66 | 20 74 68 65 20 44 50 20 |DP.--.If| the DP |
|00002ce0| 69 73 20 6f 64 64 2c 20 | 61 64 64 73 20 6f 6e 65 |is odd, |adds one|
|00002cf0| 20 74 6f 20 69 74 2e 0d | 41 4c 4c 4f 54 09 6e 20 | to it..|ALLOT.n |
|00002d00| 2d 2d 0d 09 52 65 73 65 | 72 76 65 73 20 6e 20 61 |--..Rese|rves n a|
|00002d10| 64 64 69 74 69 6f 6e 61 | 6c 20 62 79 74 65 73 20 |dditiona|l bytes |
|00002d20| 66 6f 72 20 74 68 65 20 | 63 6f 64 65 20 66 69 65 |for the |code fie|
|00002d30| 6c 64 20 6f 66 20 74 68 | 65 20 6c 61 73 74 20 64 |ld of th|e last d|
|00002d40| 65 66 69 6e 65 64 20 0d | 09 64 69 63 74 69 6f 6e |efined .|.diction|
|00002d50| 61 72 79 20 65 6e 74 72 | 79 2e 20 20 0d 43 45 4c |ary entr|y.  .CEL|
|00002d60| 4c 53 09 23 63 65 6c 6c | 73 20 2d 2d 20 23 62 79 |LS.#cell|s -- #by|
|00002d70| 74 65 73 0d 09 47 69 76 | 65 6e 20 74 68 65 20 6e |tes..Giv|en the n|
|00002d80| 75 6d 62 65 72 20 6f 66 | 20 63 65 6c 6c 73 2c 20 |umber of| cells, |
|00002d90| 72 65 74 75 72 6e 73 20 | 74 68 65 20 6e 75 6d 62 |returns |the numb|
|00002da0| 65 72 20 6f 66 20 62 79 | 74 65 73 20 72 65 71 75 |er of by|tes requ|
|00002db0| 69 72 65 64 20 28 23 62 | 79 74 65 73 20 3d 20 34 |ired (#b|ytes = 4|
|00002dc0| 20 0d 09 78 20 23 63 65 | 6c 6c 73 29 2e 20 20 0d | ..x #ce|lls).  .|
|00002dd0| 43 46 41 3f 09 63 66 61 | 3f 20 2d 2d 20 63 66 61 |CFA?.cfa|? -- cfa|
|00002de0| 3f 20 62 09 43 68 65 63 | 6b 73 20 69 66 20 63 66 |? b.Chec|ks if cf|
|00002df0| 61 3f 20 63 6f 75 6c 64 | 20 72 65 61 6c 6c 79 20 |a? could| really |
|00002e00| 62 65 20 61 20 43 46 41 | 2e 0d 43 4c 41 53 53 3f |be a CFA|..CLASS?|
|00002e10| 09 63 66 61 3f 20 2d 2d | 20 63 66 61 3f 20 62 09 |.cfa? --| cfa? b.|
|00002e20| 52 65 74 75 72 6e 73 20 | 74 72 75 65 20 69 66 20 |Returns |true if |
|00002e30| 74 68 65 20 63 66 61 20 | 72 65 66 65 72 73 20 74 |the cfa |refers t|
|00002e40| 6f 20 61 20 63 6c 61 73 | 73 2e 0d 31 43 45 4c 4c |o a clas|s..1CELL|
|00002e50| 09 28 20 2d 2d 20 34 20 | 29 09 43 6f 6d 70 69 6c |.( -- 4 |).Compil|
|00002e60| 65 72 09 42 61 73 65 0d | 09 4e 6f 74 20 41 4e 53 |er.Base.|.Not ANS|
|00002e70| 49 2c 20 62 75 74 20 75 | 73 65 66 75 6c 2e 20 20 |I, but u|seful.  |
|00002e80| 41 20 63 6f 6e 73 74 61 | 6e 74 20 77 68 69 63 68 |A consta|nt which|
|00002e90| 20 72 65 74 75 72 6d 73 | 0d 09 74 68 65 20 77 69 | returms|..the wi|
|00002ea0| 64 74 68 20 6f 66 20 6f | 6e 65 20 63 65 6c 6c 2e |dth of o|ne cell.|
|00002eb0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f00| 00 00 01 00 00 00 01 42 | 00 00 00 42 00 00 00 3b |.......B|...B...;|
|00002f10| f0 34 02 ac 00 00 42 f1 | 00 00 00 00 f0 38 02 b8 |.4....B.|.....8..|
|00002f20| 10 00 b9 07 00 00 00 00 | f0 3a 02 c2 10 00 b9 e1 |........|.:......|
|00002f30| 08 43 6f 6d 70 69 6c 65 | 72 6d 02 00 00 00 50 61 |.Compile|rm....Pa|
|00002f40| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 01 |rtSIT!..|........|
|00002f50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00002f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f70| 00 00 b3 66 c2 84 00 00 | 00 00 00 00 01 7d ff ff |...f....|.....}..|
|00002f80| 00 00 82 b3 00 00 00 00 | 00 83 02 2a 00 00 82 ce |........|...*....|
|00002f90| 00 00 c9 5c 00 80 02 45 | 00 00 83 52 00 08 13 b0 |...\...E|...R....|
|00002fa0| 00 81 02 2f 00 00 82 f1 | 00 00 c9 28 00 82 02 38 |.../....|...(...8|
|00002fb0| 00 00 83 77 00 08 13 dc | 00 84 02 3e 00 00 83 17 |...w....|...>....|
|00002fc0| 00 00 c6 18 00 85 02 41 | 00 00 83 34 00 00 c3 c4 |.......A|...4....|
|00002fd0| f0 35 02 62 00 00 83 a0 | 00 08 14 d8 f0 36 03 16 |.5.b....|.....6..|
|00002fe0| 00 00 c0 90 00 00 00 00 | f0 3a ff ff 00 00 a7 54 |........|.:.....T|
|00002ff0| 00 00 00 00 f0 36 ff ff | 00 00 c1 92 00 00 00 00 |.....6..|........|
|00003000| 00 00 00 3e 00 00 00 00 | 00 00 00 00 00 00 00 00 |...>....|........|
|00003010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 0e |........|........|
|00003030| 00 00 00 0e 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003040| 00 00 00 00 01 00 00 00 | 01 42 00 00 00 42 00 00 |........|.B...B..|
|00003050| 00 3b 00 69 4e b4 0d f6 | 00 00 00 1c 00 32 00 00 |.;.iN...|.....2..|
|00003060| 4d 49 46 4f 00 00 00 0a | 00 80 00 00 00 00 00 00 |MIFO....|........|
|00003070| 00 69 5b 10 08 4d 69 73 | 63 49 6e 66 6f 00 00 00 |.i[..Mis|cInfo...|
+--------+-------------------------+-------------------------+--------+--------+